home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 177 (1991-09-10)(Manewaldt, A.)(DE)(PD).zip
/
Taifun 177 (1991-09-10)(Manewaldt, A.)(DE)(PD).adf
/
AUTOEXEC.AMOS
/
AUTOEXEC.amosSourceCode
next >
Wrap
AMOS Source Code
|
1991-10-02
|
147KB
|
4,864 lines
Set Buffer 12
Close Workbench
Default
Rem *******************************************
Rem * Laenderraten *
Rem *-----------------------------------------*
Rem * Programmiert von Ralf Schrempp *
Rem * Altfelixstr.7 *
Rem * D-7630 Lahr/Schw. *
Rem * *
Rem * und Bernhard Schindler *
Rem * Kirchstr.48 *
Rem * D-7639 Kappel-Grafenhausen *
Rem * *
Rem *******************************************
On Error Proc BEENDEN
Colour 0,$0 : Colour 1,$0
Curs Off : Led Off : Hide
Dim STADT$(14),LAND$(14)
Dim STADT1$(35),LAND1$(35)
Dim STADT2$(30),LAND2$(30)
Dim STADT3$(41),LAND3$(41)
Dim STADT4$(8),LAND4$(8)
Dim STADT5$(13),LAND5$(13)
Global V,MUS,STADT$(),LAND$(),STADT1$(),LAND1$(),STADT2$(),LAND2$(),STADT3$(),LAND3$(),STADT4$(),LAND4$(),STADT5$(),LAND5$()
V=63 : MUS=False
INSTALLIEREN
ANFANG
AUSWAHL
Procedure ANFANG
MUS=True
Unpack 15 To 0
Music 1 : Tempo 17 : Mvolume V : Double Buffer
Channel 1 To Bob 1
Channel 2 To Bob 2
Channel 3 To Bob 3
Bob 1,80,200,1 : Wait Vbl
Amal 1,"M 0,-190,400" : Amal On 1 : Wait 500
Amal 1,"M 0,-300,400" : Amal On 1 : Wait 200
Bob 2,90,250,2 : Wait Vbl
Amal 2,"M 0,-170,400" : Amal On 2 : Wait 500
Amal 2,"M 0,250,400" : Amal On 2 : Wait 200
Bob 3,20,250,3 : Wait Vbl
Amal 3,"M 0,-180,450" : Amal On 3 : Wait 500
Amal 3,"M 0,-300,500" : Amal On 3 : Wait 400
Fade 5 : Wait 75
Amal Off
Screen Close 0
End Proc
Procedure AUSWAHL
Screen Open 2,640,256,16,Hires : Colour 0,$0 : Colour 1,$0 : Curs Off
Screen Open 1,640,256,16,Hires : Colour 0,$0 : Colour 1,$0 : Curs Off
Screen 1
Paper 6
Cls
Paper 6 : Pen 0
Print At(10,2);"Bitte w�hlen Sie den Kontinent ihrer Wahl."
Ink 0
Bar 70,45 To 450,205
Ink 2
Bar 60,40 To 440,200
Paper 2 : Pen 0
Do
Print At(16,6);"<1> Asien."
Print At(16,8);"<2> Europa."
Print At(16,10);"<3> Afrika."
Print At(16,12);"<4> Australien."
Print At(16,14);"<5> S�damerika."
Print At(16,16);"<6> Nord.- u. Mittelamerika."
Print At(16,18);"<7> E N D E."
Locate 16,22
Input "Ihre Wahl bitte :";A
If A=1 Then ALPHA
If A=2 Then EUROPA
If A=3 Then AFRIKA
If A=4 Then AUSTRALIEN
If A=5 Then S�DAMERIKA
If A=6 Then NORDAMERIKA
If A=7 Then BEENDEN
If A>7 Then BEENDEN
Loop
End Proc
Procedure MUSIK_AUS
If MUS=True
For V=63 To 0 Step -1
Mvolume V
Wait 6
Next V
Music Off
MUS=False
End If
End Proc
Procedure BEENDEN
Curs Off
If MUS=True
MUSIK_AUS
End If
Music Stop
Music Off
Amal Off
Led On
Show
Screen Close 2
Screen Close 1
Edit
End Proc
Procedure INSTALLIEREN
Restore SIENA
For Z=1 To 35
Read STADT1$(Z),LAND1$(Z)
Next Z
Restore EUROPA
For Z=1 To 30
Read STADT2$(Z),LAND2$(Z)
Next Z
Restore AFRIKA
For Z=1 To 41
Read STADT3$(Z),LAND3$(Z)
Next Z
Restore AUSTRALIEN
For Z=1 To 8
Read STADT4$(Z),LAND4$(Z)
Next Z
Restore SUEDAMERIKA
For Z=1 To 13
Read STADT5$(Z),LAND5$(Z)
Next Z
Restore NORDAMERIKA
For Z=1 To 14
Read STADT$(Z),LAND$(Z)
Next Z
End Proc
Procedure TISCH
Unpack 12 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus "
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Japan "
Menu$(2,2)="S�dkorea "
Menu$(2,3)="Nordkorea "
Menu$(2,4)="China "
Menu$(2,5)="Mongolei "
Menu$(2,6)="Saudi-Arabien"
Menu$(2,7)="Israel "
Menu$(2,8)="Jordanien "
Menu$(2,9)="Libanon "
Menu$(2,10)="Syrien "
Menu$(3)=" Land 2.Teil "
Menu$(3,1)="Irak "
Menu$(3,2)="Kuwait "
Menu$(3,3)="Jemen "
Menu$(3,4)="Volksrep. Jemen"
Menu$(3,5)="Oman "
Menu$(3,6)="Arab. Emirate "
Menu$(3,7)="Iran "
Menu$(3,8)="Afghanistan "
Menu$(3,9)="Sowjetunion "
Menu$(3,10)="Pakistan "
Menu$(3,11)="Taiwan "
Menu$(4)=" Land 3.Teil "
Menu$(4,1)="Indien "
Menu$(4,2)="Nepal "
Menu$(4,3)="Bhutan "
Menu$(4,4)="Bangladesch "
Menu$(4,5)="Sri Lanka "
Menu$(4,6)="Birma "
Menu$(4,7)="Kambodscha "
Menu$(4,8)="Thailand "
Menu$(4,9)="Laos "
Menu$(4,10)="Vietnam "
Menu$(4,11)="Phillipinen "
Repeat
On Menu Proc PROGRAMM,LAND1,LAND2,LAND3
On Menu On
Menu On
Until False
End Proc
Procedure PROGRAMM
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure LAND1
C=Choice(2)
On C Proc JAPAN,SUEDKOREA,NORDKOREA,CHINA,MONGOLEI,SAUDI,ISRAEL,JORDANIEN,LIBANON,SYRIEN,TAIWAN
End Proc
Procedure LAND2
C=Choice(2)
On C Proc IRAK,KUWAIT,JEMEN,VOLKJEMEN,OMAN,EMIRATE,IRAN,AFGHANISTAN,SOWJETUNION,PAKISTAN,TAIWAN
End Proc
Procedure LAND3
C=Choice(2)
On C Proc INDIEN,NEPAL,BHUTAN,BANGLA,LANKA,BIRMA,KAMBODSCHA,THAILAND,LAOS,VIETNAM,PHILLIPPINEN
End Proc
Procedure ALPHA
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then ALPHASTADT
If WAHL$="S" Then ALPHASTADT
If WAHL$="l" Then ALPHALAND
If WAHL$="L" Then ALPHALAND
Paper 7
Loop
End Proc
Procedure ALPHALAND
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchten Land ein.."
NA=Rnd(34)+1
Do
NB=Rnd(34)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(34)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(34)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND1$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND1$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND1$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND1$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT1$(NA)
Locate 54+Len(STADT1$(NA)),16
Input A
If A<1 or A>35
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 35 und nicht kleiner als 1 sein."
Else
If LAND1$(A)=LAND1$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
TISCH
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure ALPHASTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(34)+1
Do
NB=Rnd(34)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(34)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(34)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT1$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT1$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT1$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT1$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND1$(NA)
Locate 44+Len(LAND1$(NA)),16
Input A
If A<1 or A>35
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 35 und nicht kleiner als 1 sein."
Else
If STADT1$(A)=STADT1$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND1$(NA);" ist ";STADT1$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
TISCH
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure INFO
Screen To Back 1 : Screen To Front 2 : Screen 2
Cls
Print At(4,2);" Dieses Programm wurde urspr�nglich in der Programmiersprache"
Print At(4,4);" GFA-Basic geschrieben."
Print At(0,6);"Nachdem wir von GFA-Basic fast zum Wahnsinn getrieben wurden, weil verschie-"
Print At(0,8);"dene Befehle nicht korrekt arbeiten oder der Compiler nicht so funktioniert "
Print At(4,10);" wie er sollte, stiegen wir kurzer Hand auf AMOS-Basic um."
Pen 4
Print At(0,14);"Das Programm wurde von uns 1:1 von GFA-Basic nach AMOS-Basic umgesetzt."
Print At(0,16);"Nach der Umsetzung wurde es nat�rlich noch etwas verbessert, insofern"
Print At(0,18);"wir das mit unseren geringen Programmierkentnissen in AMOS-Basic tun konnten."
Print At(0,20);"Dieses Programm schrieb Ralf Schrempp "
Print At(0,22);" Altfelixstr.7 , 7630 Lahr/Schw."
Print At(0,24);" u. Bernhard Schindler "
Print At(0,26);" Kirchstr. 48 , 7639 Kappel-Grafenhausen."
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
End Proc
Procedure ABBRUCH1
Menu Off
Menu Del : Hide
Proc AUSWAHL
End Proc
Procedure EUROPA
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then EUROPASTADT
If WAHL$="S" Then EUROPASTADT
If WAHL$="l" Then EUROPALAND
If WAHL$="L" Then EUROPALAND
Paper 7
Loop
End Proc
Procedure EUROPASTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(29)+1
Do
NB=Rnd(29)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(29)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(29)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT2$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT2$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT2$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT2$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND2$(NA)
Locate 44+Len(LAND2$(NA)),16
Input A
If A<1 or A>30
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 30 und nicht kleiner als 1 sein."
Else
If STADT2$(A)=STADT2$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
EURO
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure EUROPALAND
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein."
NA=Rnd(29)+1
Do
NB=Rnd(29)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(29)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(29)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND2$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND2$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND2$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND2$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT2$(NA)
Locate 54+Len(STADT2$(NA)),16
Input A
If A<1 or A>30
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 30 und nicht kleiner als 1 sein."
Else
If LAND2$(A)=LAND2$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND2$(NA);" ist ";STADT2$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
EURO
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure EURO
Unpack 13 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus"
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Schweden "
Menu$(2,2)="Island "
Menu$(2,3)="Norwegen "
Menu$(2,4)="Finnland "
Menu$(2,5)="D�nemark "
Menu$(2,6)="Irland "
Menu$(2,7)="Frankreich "
Menu$(3)="Land 2. Teil "
Menu$(3,1)="Portugal "
Menu$(3,2)="Spanien "
Menu$(3,3)="Luxemburg "
Menu$(3,4)="Holland "
Menu$(3,5)="Belgien "
Menu$(3,6)="England "
Menu$(3,7)="Bundes-Republik "
Menu$(4)="Land 3.Teil "
Menu$(4,1)="Malta "
Menu$(4,2)="Ungarn "
Menu$(4,3)="Italien "
Menu$(4,4)="Schweiz "
Menu$(4,5)="Tschecheslowakei"
Menu$(4,6)="Polen "
Menu$(4,7)="Jugoslawien "
Menu$(5)="Land 4.Teil "
Menu$(5,1)="�sterreich "
Menu$(5,2)="Albanien "
Menu$(5,3)="Bulgarien "
Menu$(5,4)="Rum�nien "
Menu$(5,5)="T�rkei "
Menu$(5,6)="Griechenland "
Menu$(5,7)="Zypern "
Menu$(5,8)="Andorra "
Repeat
On Menu Proc PROGRAMM_EUROPA,EUROPA_AUSWAHL1,EUROPA_AUSWAHL2,EUROPA_AUSWAHL3,EUROPA_AUSWAHL4
On Menu On
Menu On
Until False
End Proc
Procedure EUROPA_AUSWAHL1
C=Choice(2)
On C Proc SCHWEDEN,ISLAND,NORWEGEN,FINNLAND,D�NEMARK,IRLAND,FRANKREICH
End Proc
Procedure EUROPA_AUSWAHL2
C=Choice(2)
On C Proc PARTUGAL,SPANIEN,LUXEMBURG,HOLLAND,BELGIEN,GB,BRD
End Proc
Procedure EUROPA_AUSWAHL3
C=Choice(2)
On C Proc MALTA,UNGARN,ITALIEN,SCHWEIZ,TSCHECHLO,POLEN,JUGOSLAWIEN
End Proc
Procedure EUROPA_AUSWAHL4
C=Choice(2)
On C Proc �STERREICH,ALBANIEN,BULGARIEN,RUM�NIEN,T�RKEI,GRIECHENLAND,ZYPERN,�ND�RRA
End Proc
Procedure PROGRAMM_EUROPA
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure LOESCHEN_EU
Ink 6
Bar 404,31 To 619,188
End Proc
Procedure SCHWEDEN
Ink 2 : Paint 185,65
Paper 6 : Pen 2
Print At(53,4);"Schweden Stockholm"
Print At(52,13);"Gesamtfl�che 449 750 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"6,8% Ackerl., Baumkulturen"
Print At(51,17);"0,9% Wiesen u. Dauerweiden"
Print At(51,18);"50,7% Hoch- u. Buschwald"
Print At(51,19);"41,6% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 8 400 500"
Print At(52,9);"Sprache: Schwedisch"
Print At(52,11);"W�hrung:Schwed. Kronen"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 185,65
End Proc
Procedure ISLAND
Ink 2 : Paint 40,40
Paper 6 : Pen 2
Print At(53,4);"Island Reykjavik"
Print At(52,13);"Gesamtfl�che 102 829 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"0,01% Ackerl.,Baumkulturen"
Print At(51,17);"22,1% Wiesen u.Dauerweiden"
Print At(51,18);"0,03% Hoch- u. Buschwald"
Print At(51,19);"77,83% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 230 000"
Print At(52,9);"Sprache: Isl�ndisch"
Print At(52,11);"W�hrung: Isl�nd. Krone"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 40,40
End Proc
Procedure NORWEGEN
Ink 2 : Paint 155,70
Paper 6 : Pen 2
Print At(53,4);"Norwegen Oslo"
Print At(52,13);"Gesamtfl�che 323 886 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"2,5% Ackerl., Baumkulturen"
Print At(51,17);"0,4% Wiesen u. Dauerweiden"
Print At(51,18);"25,7% Hoch- u. Buschwald"
Print At(51,19);"71,4% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 4 100 000"
Print At(52,9);"Sprache: Norwegisch"
Print At(52,11);"W�hrung: Norweg. Krone"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 155,70
End Proc
Procedure FINNLAND
Ink 2 : Paint 220,50
Paper 6 : Pen 2
Print At(53,4);"Finnland Helsinki"
Print At(52,13);"Gesamtfl�che 337 034 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"8,1% Ackerl., Baumkulturen"
Print At(51,17);"0,3% Wiesen u. Dauerweiden"
Print At(51,18);"57,7% Hoch- u. Buschwald"
Print At(51,19);"33,9% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 4 900 000"
Print At(52,9);"Sprache: Finnisch"
Print At(52,11);"W�hrung: Finnmark"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 220,50
End Proc
Procedure D�NEMARK
Ink 2 : Paint 168,94 : Paint 168,96 : Paint 155,96
Paper 6 : Pen 2
Print At(53,4);"D�nemark Kopenhagen"
Print At(52,13);"Gesamtfl�che 43 069 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"62,1% Ackerl.,Baumkulturen"
Print At(51,17);"6,9% Wiesen u.Dauerweiden"
Print At(51,18);"10,9% Hoch- u. Buschwald"
Print At(51,19);"20,1% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 5 200 000"
Print At(52,9);"Sprache: D�nisch"
Print At(52,11);"W�hrung: D�nische Krone"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 168,94 : Paint 168,96 : Paint 155,96
End Proc
Procedure IRLAND
Ink 2 : Paint 65,100
Paper 6 : Pen 2
Print At(53,4);"Irland Dublin"
Print At(52,7);"Einwohner: ca. 3 500 000"
Print At(52,9);"Sprache: Englisch"
Print At(52,10);" G�lisch"
Print At(52,12);"W�hrung: Irisches Pfund"
Print At(52,14);"Gesamtfl�che 70 280 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"16,4% Ackerl.,Baumkulturen"
Print At(51,18);"52,2% Wiesen u.Dauerweiden"
Print At(51,19);"3,0% Hoch- u. Buschwald"
Print At(51,20);"28,4% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 65,100
End Proc
Procedure FRANKREICH
Ink 2 : Paint 100,130 : Paint 155,158
Paper 6 : Pen 2
Print At(53,4);"Frankreich Paris"
Print At(52,7);"Einwohner: ca. 55 000 000"
Print At(52,9);"Sprache: Franz�sisch"
Print At(52,11);"W�hrung: Franz. Franc"
Print At(52,14);"Gesamtfl�che 543 998 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"35,2% Ackerl.,Baumkulturen"
Print At(51,18);"25,4% Wiesen u.Dauerweiden"
Print At(51,19);"25,5% Hoch- u. Buschwald"
Print At(51,20);"13,9 �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 100,130 : Paint 155,158
End Proc
Procedure PARTUGAL
Ink 2 : Paint 30,160
Paper 6 : Pen 2
Print At(53,4);"Portugal Lissabon"
Print At(52,7);"Einwohner: ca. 11 000 000"
Print At(52,9);"Sprache: Portugisisch"
Print At(52,11);"W�hrung: Escudo"
Print At(52,14);"Gesamtfl�che 91 631 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"49,2% Ackerl.,Baumkulturen"
Print At(51,18);"6,0% Wiesen u. Dauerweiden"
Print At(51,19);"28,1% Hoch- u. Buschwald"
Print At(51,20);"16,7% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 30,160
End Proc
Procedure SPANIEN
Ink 2 : Paint 60,160 : Paint 110,170
Paper 6 : Pen 2
Print At(53,4);"Spanien Madrid"
Print At(52,7);"Einwohner: ca. 39 000 000"
Print At(52,9);"Sprache: Spanisch"
Print At(52,11);"W�hrung: Peseta"
Print At(52,14);"Gesamtfl�che 504 750 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"40,8% Ackerl.,Baumkulturen"
Print At(51,18);"31,4% Wiesen u.Dauerweiden"
Print At(51,19);"22,8% Hoch- u. Buschwald"
Print At(51,20);"5,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 60,160 : Paint 110,170
End Proc
Procedure LUXEMBURG
Ink 2 : Paint 139,120
Paper 6 : Pen 2
Print At(53,4);"Luxemburg Luxemburg"
Print At(52,7);"Einwohner: ca. 370 000"
Print At(52,9);"Sprache: Franz�sisch"
Print At(52,10);" Deutsch"
Print At(52,11);" Luxemburgisch"
Print At(52,13);"W�hrung: Luxemb. Franc"
Print At(52,15);"Gesamtfl�che 2 586,4 km";Chr$(178)
Print At(52,17);"davon sind"
Print At(51,18);"25,5% Ackerl.,Baumkulturen"
Print At(51,19);"26,6% Wiesen u.Dauerweiden"
Print At(51,20);"33,2Hoch- u. Buschwald"
Print At(51,21);"14,7% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 139,120
End Proc
Procedure HOLLAND
Ink 2 : Paint 135,110
Paper 6 : Pen 2
Print At(53,4);"Holland Amsterdam"
Print At(52,7);"Einwohner: ca. 14 400 100"
Print At(52,9);"Sprache: Niederl�ndiesch"
Print At(52,11);"W�hrung: Holl�nd. Gulden"
Print At(52,13);"Gesamtfl�che 33 716 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"23,7% Ackerl.,Baumkulturen"
Print At(51,17);"36,2% Wiesen u.Dauerweiden"
Print At(51,18);"8,1 Hoch- u. Buschwald"
Print At(51,19);"32,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 135,110
End Proc
Procedure BELGIEN
Ink 2 : Paint 134,120
Paper 6 : Pen 2
Print At(53,4);"Belgien Br�ssel"
Print At(52,7);"Einwohner: ca. 9 800 000"
Print At(52,9);"Sprache: Fl�misch"
Print At(52,10);" Franz�sisch"
Print At(52,11);" Deutsch"
Print At(52,13);"W�hrung: Belgische Franc"
Print At(52,15);"Gesamtfl�che 30 514 km";Chr$(178)
Print At(52,17);"davon sind"
Print At(51,18);"27,8% Ackerl.,Baumkulturen"
Print At(51,19);"24,5% Wiesen u.Dauerweiden"
Print At(51,20);"19,7 Hoch- u. Buschwald"
Print At(51,21);"28,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 134,120
End Proc
Procedure GB
Ink 2 : Paint 99,110 : Paint 68,95
Paper 6 : Pen 2
Print At(53,4);"Gro�britanien London"
Print At(52,15);"Gesamtfl�che 224 019 km";Chr$(178)
Print At(52,17);"davon sind"
Print At(51,18);"29,8% Ackerl.,Baumkulturen"
Print At(51,19);"49,6% Wiesen u.Dauerweiden"
Print At(51,20);"7,7% Hoch- u. Buschwald"
Print At(51,21);"12,9% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 56 600 000"
Print At(52,9);"Sprache: Englisch"
Print At(52,10);" G�lisch"
Print At(52,11);" Walisisch"
Print At(52,13);"W�hrung: Pfund Sterling"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 99,110 : Paint 68,95
End Proc
Procedure BRD
Ink 2 : Paint 152,119
Paper 6 : Pen 2
Print At(53,4);"Bundesrepublik Berlin"
Print At(52,13);"Gesamtfl�che 356 755 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"36,5% Ackerl.,Baumkulturen"
Print At(51,17);"19,5% Wiesen u.Dauerweiden"
Print At(51,18);"28,2% Hoch- u. Buschwald"
Print At(51,19);"15,8% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 81 750 000"
Print At(52,9);"Sprache: Deutsch"
Print At(52,11);"W�hrung: Deutsche Mark"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 152,119
Menu Off
Menu Del
Hide
�RTENAU
End Proc
Procedure UNGARN
Ink 2 : Paint 220,135
Paper 6 : Pen 2
Print At(53,4);"Ungarn Budapest"
Print At(52,7);"Einwohner: ca. 10 700 000"
Print At(52,9);"Sprache: Ungarisch"
Print At(52,11);"W�hrung: Forint"
Print At(52,14);"Gesamtfl�che 93 032 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"60,1% Ackerl.,Baumkulturen"
Print At(51,18);"13,8% Wiesen u.Dauerweiden"
Print At(51,19);"15,8% Hoch- u. Buschwald"
Print At(51,20);"10,3% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5
Paint 220,135
End Proc
Procedure ITALIEN
Ink 2 : Paint 180,155 : Paint 185,180 : Paint 152,170
Paper 6 : Pen 2
Print At(53,4);"Italien Rom"
Print At(52,7);"Einwohner: ca. 57 100 000"
Print At(52,9);"Sprache: Italienisch"
Print At(52,11);"W�hrung: Lira"
Print At(52,14);"Gesamtfl�che 301 230 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"51,8% Ackerl.,Baumkulturen"
Print At(51,18);"16,9% Wiesen u.Dauerweiden"
Print At(51,19);"19,4% Hoch- u. Buschwald"
Print At(51,20);"11,9% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 180,155 : Paint 185,180 : Paint 152,170
End Proc
Procedure SCHWEIZ
Ink 2 : Paint 150,137
Paper 6 : Pen 2
Print At(53,4);"Schweiz Bern"
Print At(52,16);"Gesamtfl�che 41 288 km";Chr$(178)
Print At(52,18);"davon sind"
Print At(51,19);"10,2% Ackerl.,Baumkulturen"
Print At(51,20);"42,2% Wiesen u.Dauerweiden"
Print At(51,21);"23,8% Hoch- u. Buschwald"
Print At(51,22);"23,8% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 6 500 000"
Print At(52,9);"Sprache: Deutsch 65%"
Print At(52,10);" Franz�sisch 18%"
Print At(52,11);" Italienisch 10%"
Print At(52,12);" R�toromanisch 1%"
Print At(52,14);"W�hrung:Schweiz. Franken"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 150,137
End Proc
Procedure TSCHECHLO
Ink 2 : Paint 190,121
Paper 6 : Pen 2
Print At(53,4);"Tschechoslowakei Prag"
Print At(52,14);"Gesamtfl�che 127 869 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"42,0% Ackerl.,Baumkulturen"
Print At(51,18);"13,9% Wiesen u.Dauerweiden"
Print At(51,19);"34,8% Hoch- u. Buschwald"
Print At(51,20);"9,3% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 15 500 000"
Print At(52,9);"Sprache: Tschechisch"
Print At(52,10);" Slowakisch"
Print At(52,12);"W�hrung: Tschech. Kronen"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 190,121
End Proc
Procedure POLEN
Ink 2 : Paint 210,109
Paper 6 : Pen 2
Print At(53,4);"Polen Warschau"
Print At(52,13);"Gesamtfl�che 312 677 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"49,0% Ackerl.,Baumkulturen"
Print At(51,17);"13,5% Wiesen u.Dauerweiden"
Print At(51,18);"27,3% Hoch- u. Buschwald"
Print At(51,19);"10,2% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 36 900 000"
Print At(52,9);"Sprache: Polnisch"
Print At(52,11);"W�hrung: Zloty"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 210,109
End Proc
Procedure JUGOSLAWIEN
Ink 2 : Paint 220,145
Paper 6 : Pen 2
Print At(53,4);"Jugoslawien Belgrad"
Print At(52,7);"Einwohner: ca. 23 200 000"
Print At(52,9);"Sprache: Serbokroatisch"
Print At(52,10);" Slowenisch"
Print At(52,11);" Mazedonisch"
Print At(52,13);"W�hrung: Dinar"
Print At(52,15);"Gesamtfl�che 255 804 km";Chr$(178)
Print At(52,17);"davon sind"
Print At(51,18);"32,1% Ackerl.,Baumkulturen"
Print At(51,19);"25,1% Wiesen u.Dauerweiden"
Print At(51,20);"34,7% Hoch- u. Buschwald"
Print At(51,21);"8,1% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 220,145
End Proc
Procedure �STERREICH
Ink 2 : Paint 197,134
Paper 6 : Pen 2
Print At(53,4);"�sterreich Wien"
Print At(52,13);"Gesamtfl�che 83 849 km";Chr$(178)
Print At(52,15);"davon sind"
Print At(51,16);"20,0% Ackerl.,Baumkulturen"
Print At(51,17);"26,4% Wiesen u.Dauerweiden"
Print At(51,18);"38,2% Hoch- u. Buschwald"
Print At(51,19);"15,4% �dland, Binnengew."
Print At(52,7);"Einwohner: ca. 7 600 000"
Print At(52,9);"Sprache: Deutsch"
Print At(52,11);"W�hrung: Schilling"
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 197,134
End Proc
Procedure ALBANIEN
Ink 2 : Paint 229,166 : Paint 224,157
Paper 6 : Pen 2
Print At(53,4);"Albanien Tirana"
Print At(52,7);"Einwohner: ca. 2 800 000"
Print At(52,9);"Sprache: Slowenisch"
Print At(52,10);" Mazedonisch"
Print At(52,12);"W�hrung: Lek"
Print At(52,14);"Gesamtfl�che 28 748 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"19,3% Ackerl.,Baumkulturen"
Print At(51,18);"23,9% Wiesen u.Dauerweiden"
Print At(51,19);"43,2% Hoch- u. Buschwald"
Print At(51,20);"13,6% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 229,166 : Paint 224,157
End Proc
Procedure BULGARIEN
Ink 2 : Paint 258,153
Paper 6 : Pen 2
Print At(53,4);"Bulgarien Sofia"
Print At(52,7);"Einwohner: ca. 9 000 000"
Print At(52,9);"Sprache: Bulgarisch"
Print At(52,11);"W�hrung: Lew"
Print At(52,14);"Gesamtfl�che 110 912 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"40,8% Ackerl.,Baumkulturen"
Print At(51,18);"13,4% Wiesen u.Dauerweiden"
Print At(51,19);"33,4% Hoch- u. Buschwald"
Print At(51,20);"12,4% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 258,153
End Proc
Procedure RUM�NIEN
Ink 2 : Paint 258,135
Paper 6 : Pen 2
Print At(53,4);"Rum�nien Bukarest"
Print At(52,7);"Einwohner: ca. 22 700 000"
Print At(52,9);"Sprache: Rum�nisch"
Print At(52,11);"W�hrung: Lei"
Print At(52,14);"Gesamtfl�che 237 500 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"44,3% Ackerl.,Baumkulturen"
Print At(51,18);"18,6% Wiesen u.Dauerweiden"
Print At(51,19);"26,6% Hoch- u. Buschwald"
Print At(51,20);"10,5% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5
Paint 258,135
End Proc
Procedure T�RKEI
Ink 2 : Paint 300,166
Paper 6 : Pen 2
Print At(53,4);"T�rkei Ankara"
Print At(52,7);"Einwohner: ca. 49 300 000"
Print At(52,9);"Sprache: T�rkisch"
Print At(52,11);"W�hrung: T�rk. Lira"
Print At(52,14);"Gesamtfl�che 779 452 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"35.2% Ackerl.,Baumkulturen"
Print At(51,18);"33.5% Wiesen u.Dauerweiden"
Print At(51,19);"23.4% Hoch- u. Buschwald"
Print At(52,20);"7.9% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 300,166
End Proc
Procedure GRIECHENLAND
Ink 2 : Paint 252,175 : Paint 265,187
Paper 6 : Pen 2
Print At(53,4);"Griechenland Athen"
Print At(52,7);"Einwohner: ca. 9 900 000"
Print At(52,9);"Sprache: Griechisch"
Print At(52,11);"W�hrung: Drachme"
Print At(52,14);"Gesamtfl�che 131 944 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"27,5% Ackerl.,Baumkulturen"
Print At(51,18);"39,7% Wiesen u.Dauerweiden"
Print At(51,19);"19,8% Hoch- u. Buschwald"
Print At(51,20);"13,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 252,175 : Paint 265,187
End Proc
Procedure ZYPERN
Ink 2 : Paint 313,186
Paper 6 : Pen 2
Print At(53,4);"Zypern Nikosia"
Print At(52,7);"Einwohner: ca. 660 000"
Print At(52,9);"Sprache: Griechisch"
Print At(52,11);"W�hrung: Drachme"
Print At(52,14);"Gesamtfl�che 9 251 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"46.7% Ackerl.,Baumkulturen"
Print At(51,18);"10.0% Wiesen u.Dauerweiden"
Print At(51,19);"18.5% Hoch- u. Buschwald"
Print At(51,20);"24.8% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 313,186
End Proc
Procedure �ND�RRA
Ink 2 : Paint 104,154 : Paint 103,156
Paper 6 : Pen 2
Print At(53,4);"Andorra Andorra"
Print At(52,7);"Einwohner: ca. 40 000"
Print At(52,9);"Sprache: Franz�sisch"
Print At(52,10);" Spanisch"
Print At(52,12);"W�hrung: Peseta"
Print At(52,14);"Gesamtfl�che 453 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"42,0% Ackerl.,Baumkulturen"
Print At(51,18);"7,0% Wiesen u. Dauerweiden"
Print At(51,19);"1,0% Hoch- u. Buschwald"
Print At(51,20);"50,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 104,154 : Paint 103,156
End Proc
Procedure MALTA
Ink 2 : Paint 198,187
Paper 6 : Pen 2
Print At(53,4);"Malta Valletta"
Print At(52,7);"Einwohner: ca. 370 000"
Print At(52,9);"Sprache: Maltesisch"
Print At(52,12);"W�hrung: Engl. Pfund"
Print At(52,14);"Gesamtfl�che 315,6 km";Chr$(178)
Print At(52,16);"davon sind"
Print At(51,17);"50,0% Ackerl.,Baumkulturen"
Print At(51,18);"0% Wiesen u. Dauerweiden"
Print At(51,19);"0% Hoch- u. Buschwald"
Print At(51,20);"50,0% �dland, Binnengew."
SCHLAF
LOESCHEN_EU
Ink 5 : Paint 198,187
End Proc
Procedure �RTENAU
Screen Close 1
Unpack 14 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Offenburg "
Menu$(2,2)="Lahr "
Menu$(2,3)="Rheinau "
Menu$(2,4)="Achern "
Menu$(2,5)="Kappelrodeck "
Menu$(2,6)="Appenweier "
Menu$(2,7)="Oberkirch "
Menu$(2,8)="Kehl "
Menu$(2,9)="Neuried "
Menu$(2,10)="Schutterwald "
Menu$(3)="Land 2. Teil "
Menu$(3,1)="Schwanau "
Menu$(3,2)="Grafenhausen "
Menu$(3,3)="Ringsheim "
Menu$(3,4)="Rust "
Menu$(3,5)="Ettenheim "
Menu$(3,6)="Seelbach "
Menu$(3,7)="Gengenbach "
Menu$(3,8)="Biberach "
Menu$(3,9)="Steinach "
Menu$(3,10)="Haslach "
Menu$(4)="Land 3.Teil "
Menu$(4,1)="Hausach "
Menu$(4,2)="Hornberg "
Menu$(4,3)="Wolfach "
Menu$(4,4)="Peterstal "
Menu$(4,5)="Oppenau "
SCHLAF
LOESCHEN_ORT
Repeat
On Menu Proc PROGRAMM_�RTENAU,�RTENAU_AUSWAHL1,�RTENAU_AUSWAHL2,�RTENAU_AUSWAHL3
On Menu On
Menu On
Until False
End Proc
Procedure �RTENAU_AUSWAHL1
C=Choice(2)
On C Proc OFFENBURG,LAHR,RHEINAU,ACHERN,KAPPELRODECK,APPENWEIER,OBERKIRCH,KEHL,NEURIED,SCHUTTERWALD
End Proc
Procedure �RTENAU_AUSWAHL2
C=Choice(2)
On C Proc SCHWANAU,GRAFENHAUSEN,RINGSHEIM,RUST,ETTENHEIM,SEELBACH,GENGENBACH,BIBERACH,STEINACH,HASLACH
End Proc
Procedure �RTENAU_AUSWAHL3
C=Choice(2)
On C Proc HAUSACH,HORNBERG,WOLFACH,PETERSTAL,OPPENAU
End Proc
Procedure PROGRAMM_�RTENAU
C=Choice(2)
On C Proc INFO,ABBRUCH1
End Proc
Procedure LOESCHEN_ORT
Ink 6
Bar 360,30 To 620,203
End Proc
Procedure OFFENBURG
Ink 2 : Paper 6 : Pen 2
Paint 130,100
Paint 125,108
Print At(46,4);"Kreisstadt - Offenburg - "
Print At(46,6);"Einwohner: 52480"
Print At(46,8);"In dieser Stadt ist die "
Print At(46,9);"Firma Burda beheimatet."
Print At(46,10);"Offenburg besitzt mit der "
Print At(46,11);"Oberrheinmesse eine der"
Print At(46,12);"gr��ten Regionalausstellungen"
Print At(46,13);"der Bundesrepublik."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 130,100
Paint 125,108
End Proc
Procedure LAHR
Ink 2 : Paper 6 : Pen 2
Ellipse 103,138,10,4
Paint 108,138
Paint 105,140
Print At(58,4);" Lahr "
Print At(46,6);"Einwohner: 34023"
Print At(46,8);"Dies ist die Heimatstadt des"
Print At(46,9);"Programmierers Ralf Schrempp."
Print At(46,10);"Sehenswert in Lahr ist der"
Print At(46,11);"Storchenturm und auch das"
Print At(46,12);"Alte Rathaus.S�dlich von Lahr"
Print At(46,13);"befindet sich das"
Print At(46,14);"FIAT-Auslieferungslager."
Print At(46,15);"Lahr ist ehemalige Kreisstadt."
SCHLAF
LOESCHEN_ORT
Ink 4
Ellipse 103,138,10,4
Paint 108,138
Paint 105,140
End Proc
Procedure RHEINAU
Ink 2 : Paper 6 : Pen 2
Paint 128,47,4
Print At(58,4);"Rheinau "
Print At(48,6);"Einwohner: 9931"
Print At(48,8);"Im Rheinau-Linx gibt es ein "
Print At(48,9);"gro�es Fertighauszentrum."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 128,47,4
End Proc
Procedure ACHERN
Ink 2 : Paper 6 : Pen 2
Paint 176,55,5
Print At(58,4);"Achern "
Print At(48,6);"Einwohner: 20853"
Print At(48,8);"In Achern gibt es das einzige"
Print At(48,9);"Sensenmuseum der BRD."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 176,55,5
End Proc
Procedure KAPPELRODECK
Ink 2 : Paper 6 : Pen 2
Paint 198,60,4
Print At(48,4);"Kappelrodeck "
Print At(48,6);"Einwohner: 5564"
Print At(48,8);"Schlo� Rodeck mit Blick in "
Print At(48,9);"das sch�ne Rheintal.Von Mai "
Print At(48,10);"bis September finden hier "
Print At(48,11);"Sonderfahrten mit histori- "
Print At(48,12);"schen Dampfz�gen statt."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 198,60,4
End Proc
Procedure APPENWEIER
Ink 2 : Paper 6 : Pen 2
Paint 150,83,4
Print At(48,4);"Appenweier "
Print At(48,6);"Einwohner: 8418"
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 150,83,4
End Proc
Procedure OBERKIRCH
Ink 2 : Paper 6 : Pen 2
Paint 180,92,4
Print At(50,4);"Oberkirch "
Print At(48,6);"Einwohner: 17292"
Print At(48,8);"In Oberkirch gibt es viele "
Print At(48,9);"alte Fachwerkh�user.Den gr��-"
Print At(48,10);"ten Obstumschlagplatz findet "
Print At(48,11);"man hier in Oberkirch."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 180,92,4
End Proc
Procedure KEHL
Ink 2 : Paper 6 : Pen 2
Paint 83,75,5
Print At(58,4);"Kehl "
Print At(48,6);"Einwohner: 29572"
Print At(48,8);"Europabr�cke nach Stra�burg"
Print At(48,9);"im Elsa�.Weinbrennerhaus und "
Print At(48,10);"Hanauermuseum."
Print At(48,11);"Ehemalige Kreisstadt."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 83,75,5
End Proc
Procedure NEURIED
Ink 2 : Paper 6 : Pen 2
Paint 75,105,4
Print At(55,4);"Neuried "
Print At(48,6);"Einwohner:7554"
Print At(48,8);"Im Ortsteil Altenheim gibt es "
Print At(48,9);"einen sch�nen Yachthafen."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 75,105,4
End Proc
Procedure SCHUTTERWALD
Ink 2 : Paper 6 : Pen 2
Paint 100,108,4
Print At(48,4);"Schutterwald "
Print At(48,6);"Einwohner: 6441"
Print At(48,8);"Hier gibt es eine gute Hand-"
Print At(48,9);"ballmannschaft, 1.Liga."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 100,108,4
End Proc
Procedure SCHWANAU
Ink 2 : Paper 6 : Pen 2
Paint 57,125,4
Print At(54,4);"Schwanau "
Print At(48,6);"Einwohner: 5449"
Print At(48,8);"Am nahegelenen Rhein gibt es"
Print At(48,9);"zwei Schiffshebewerke."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 57,125,4
End Proc
Procedure GRAFENHAUSEN
Ink 2 : Paper 6 : Pen 2
Paint 58,153,4
Print At(48,4);"Kappel-Grafenhausen"
Print At(48,6);"Einwohner: 3735"
Print At(48,8);"Grafenhausen ist die Heimat"
Print At(48,9);"des Grafikers Bernhard Sch."
Print At(48,10);"Vom Ortsteil Kappel aus,kann "
Print At(48,11);"man den weitbekannten Tauber-"
Print At(48,12);"gie�en erreichen und diesen"
Print At(48,13);"sch�nen Landstrich bewundern."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 58,153,4
End Proc
Procedure RINGSHEIM
Ink 2 : Paper 6 : Pen 2
Paint 65,168,4
Print At(52,4);"Ringsheim "
Print At(48,6);"Einwohner: 1935"
Print At(48,8);"Ringsheim ist der s�dlichste"
Print At(48,9);"Ort in der Ortenau."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 65,168,4
End Proc
Procedure RUST
Ink 2 : Paper 6 : Pen 2
Paint 45,165,4
Print At(58,4);"Rust "
Print At(48,6);"Einwohner: 2702"
Print At(48,8);"In Rust befindet sich der "
Print At(48,9);"nun schon Weltber�hmte "
Print At(52,10);"EUROPA _ PARK,"
Print At(48,11);"wozu auch das Schlo� Balta-"
Print At(48,12);"sarburg geh�rt."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 45,165,4
End Proc
Procedure ETTENHEIM
Ink 2 : Paper 6 : Pen 2
Paint 75,164,4
Print At(53,4);"Ettenheim "
Print At(48,6);"Einwohner: 9558"
Print At(48,8);"Am Rande von Ettenheim befin-"
Print At(48,9);"det sich ein Werk der"
Print At(48,10);"BASF-AG,in dem Videokasetten"
Print At(48,11);"produziert werden.Ettenheim"
Print At(48,12);"ist ehemaliger Bischofssitz."
Print At(48,13);"Aus fr�herer Zeit sind noch"
Print At(48,14);"zwei Stadttore erhalten."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 75,164,4
End Proc
Procedure SEELBACH
Ink 2 : Paper 6 : Pen 2
Paint 129,148,4
Print At(52,4);"Seelbach "
Print At(48,6);"Einwohner: 4646"
Print At(48,8);"Ist eine kleine Stadt und "
Print At(48,9);"zugleich ein Luftkurort.In "
Print At(48,10);"Seelbach befindet sich das "
Print At(48,11);"Schlo� Dautenstein.Unweit"
Print At(48,12);"vom Ort,im Litschental ist "
Print At(48,13);"eine guterhaltene Hammer-"
Print At(48,14);"schmiede zu sehen,die an"
Print At(48,15);"Wochenenden ge�ffnet ist."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 129,148,4
End Proc
Procedure GENGENBACH
Ink 2 : Paper 6 : Pen 2
Paint 142,122,4
Print At(50,4);"Gengenbach"
Print At(48,6);"Einwohner: 10942"
Print At(46,8);"Eine denkmalgesch�tzte ehem."
Print At(46,9);"alte freie Reichsstadt."
Print At(46,10);"Die Stadt der T�rme, der mit-"
Print At(46,11);"telalterlichen Mauern und der"
Print At(46,12);"Fachwerkh�user."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 142,122,4
End Proc
Procedure BIBERACH
Ink 2 : Paper 6 : Pen 2
Paint 156,143,4
Print At(54,4);"Biberach "
Print At(48,6);"Einwohner: 2916"
Print At(48,8);"In einem Nachbarort ist die"
Print At(48,9);"Zeller-Keramik zu Hause."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 156,143,4
End Proc
Procedure STEINACH
Ink 2 : Paper 6 : Pen 2
Paint 172,153,4
Print At(52,4);"Steinach "
Print At(48,6);"Einwohner: 3657"
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 172,153,4
End Proc
Procedure HASLACH
Ink 2 : Paper 6 : Pen 2
Paint 178,162,4
Print At(56,4);"Haslach "
Print At(48,6);"Einwohner: 6083"
Print At(46,8);"Schwarzw�lder Trachtenmuseum."
Print At(46,9);"Bekanntester Sohn war der"
Print At(46,10);"Volksschriftsteller Heinrich"
Print At(46,11);"Hansjakob.F�r ihn wurde ein"
Print At(46,12);"Museum und ein Archiv"
Print At(46,13);"eingerichtet."
Print At(46,14);"Dem alemannischen Dichter-"
Print At(46,15);"pfarrer Heinrich Hansjakob,der"
Print At(46,16);"sich zu Anfang dieses Jahr-"
Print At(46,17);"hunderts um die Erhaltung der"
Print At(46,18);"Volkstrachten bem�hte,ist in"
Print At(46,19);"seiner Heimatstadt Haslach ein"
Print At(46,20);"weiters Heimatmuseum,der "
Print At(46,21);"FREIHOF gewidmet."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 178,162,4
End Proc
Procedure HAUSACH
Ink 2 : Paper 6 : Pen 2
Paint 210,159,4
Print At(54,4);"Hausach "
Print At(48,6);"Einwohner: 5292"
Print At(48,8);"Au�erhalb von Hausach befin-"
Print At(48,9);"det sich der Zweitsch�nste"
Print At(48,10);"Aussichtsturm des Schwarz-"
Print At(48,11);"waldes auf dem Brandenkopf."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 210,159,4
End Proc
Procedure HORNBERG
Ink 2 : Paper 6 : Pen 2
Paint 230,180,4
Print At(53,4);"Hornberg "
Print At(48,6);"Einwohner: 4765"
Print At(48,8);"In Hornberg fand das ber�hmte"
Print At(48,9);"Hornberger schie�en statt."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 230,180,4
End Proc
Procedure WOLFACH
Ink 2 : Paper 6 : Pen 2
Paint 228,154,5
Print At(54,4);"Wolfach "
Print At(48,6);"Einwohner: 6111"
Print At(48,8);"Hier treffen die Fl�sse Wolf"
Print At(48,9);"und die Kinzig zusammen.In"
Print At(48,10);"Wolfach gibt es noch Reste"
Print At(48,11);"der alten Stadtbefestigung"
Print At(48,12);"Untertor und Wehrt�rmen zu"
Print At(48,13);"sehen.Im Wolfachtal liegt die"
Print At(48,14);"Ruine des F�rstenberger-"
Print At(48,15);"Schlosses.Am Ortsrand"
Print At(48,16);"befindet sich die Dorotheen-"
Print At(48,17);"h�tte,eine Glasbl�serei,ein"
Print At(48,18);"Glasmuseum und eine Kunst-"
Print At(48,19);"ausstellung(sehenswert)."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 228,154,5
End Proc
Procedure PETERSTAL
Ink 2 : Paper 6 : Pen 2
Paint 232,110,4
Print At(50,4);"Bad-Peterstal "
Print At(48,6);"Einwohner: 3138"
Print At(48,8);"Luftkurort.Im Ort sind"
Print At(48,9);"mehrere Soleb�der und"
Print At(48,10);"Mineralbrunnen zu finden."
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 232,110,4
End Proc
Procedure OPPENAU
Ink 2 : Paper 6 : Pen 2
Paint 200,102,4
Print At(53,4);"Oppenau "
Print At(48,6);"Einwohner: 5121"
SCHLAF
LOESCHEN_ORT
Ink 4
Paint 200,102,4
End Proc
Procedure AFRIKA
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then AFRIKASTADT
If WAHL$="S" Then AFRIKASTADT
If WAHL$="l" Then AFRIKALAND
If WAHL$="L" Then AFRIKALAND
Paper 7
Loop
End Proc
Procedure AFRIKASTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(40)+1
Do
NB=Rnd(40)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(40)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(40)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT3$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT3$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT3$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT3$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND3$(NA)
Locate 44+Len(LAND3$(NA)),16
Input A
If A<1 or A>41
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 41 und nicht kleiner als 1 sein."
Else
If STADT3$(A)=STADT3$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
AFFEN
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure AFRIKALAND
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein."
NA=Rnd(40)+1
Do
NB=Rnd(40)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(40)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(40)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND3$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND3$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND3$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND3$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT3$(NA)
Locate 54+Len(STADT3$(NA)),16
Input A
If A<1 or A>41
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 41 und nicht kleiner als 1 sein."
Else
If LAND3$(A)=LAND3$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND3$(NA);" ist ";STADT3$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
AFFEN
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure AFFEN
Unpack 11 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus "
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Marokko "
Menu$(2,2)="Algerien "
Menu$(2,3)="Tunesien "
Menu$(2,4)="Libyen "
Menu$(2,5)="�gypten "
Menu$(2,6)="Sudan "
Menu$(2,7)="�thiopien "
Menu$(2,8)="Somalia "
Menu$(2,9)="Kenia "
Menu$(2,10)="Tansania "
Menu$(2,11)="Uganda "
Menu$(3)="Land 2. Teil "
Menu$(3,1)="Rwanda "
Menu$(3,2)="Malavi "
Menu$(3,3)="Sambia "
Menu$(3,4)="Simbabwe "
Menu$(3,5)="Mocambique "
Menu$(3,6)="Botswana "
Menu$(3,7)="S�dafrika "
Menu$(3,8)="Namibia "
Menu$(3,9)="Angola "
Menu$(3,10)="Kongo "
Menu$(3,11)="Gabun "
Menu$(4)="Land 3.Teil "
Menu$(4,1)="Kamerun "
Menu$(4,2)="Zaire "
Menu$(4,3)="Zentralafrika "
Menu$(4,4)="Tschad "
Menu$(4,5)="Nigeria"
Menu$(4,6)="Benin "
Menu$(4,7)="Togo "
Menu$(4,8)="Ghana "
Menu$(4,9)="Elfenbeink�ste "
Menu$(4,10)="Liberia "
Menu$(5)="Land 4.Teil "
Menu$(5,1)="Guinea "
Menu$(5,2)="Senegal "
Menu$(5,3)="Sierra Leone "
Menu$(5,4)="Mauretanien "
Menu$(5,5)="Sahara "
Menu$(5,6)="Mali "
Menu$(5,7)="Obervolta "
Menu$(5,8)="Niger "
Menu$(5,9)="Madagaskar "
Repeat
On Menu Proc PROGRAMM_AFRIKA,AFRIKA_AUSWAHL1,AFRIKA_AUSWAHL2,AFRIKA_AUSWAHL3,AFRIKA_AUSWAHL4
On Menu On
Menu On
Until False
End Proc
Procedure AFRIKA_AUSWAHL1
C=Choice(2)
On C Proc MAROKKO,ALGERIEN,TUNESIEN,LIBYEN,�GYPTEN,SUDAN,�THIOPIEN,SOMALIA,KENIA,TUNSANIA,UGANDA
End Proc
Procedure AFRIKA_AUSWAHL2
C=Choice(2)
On C Proc RWANDA,MALAVI,SAMBIA,SIMBABWE,MOCAMBIQUE,BOTSWANA,S�DAFFEN,NAMIBIA,ANGOLA,KONGO,GABUN
End Proc
Procedure AFRIKA_AUSWAHL3
C=Choice(2)
On C Proc KAMERUN,ZAIRE,ZENTRALAFRIKA,TSCHAD,NIGERIA,BENIN,TUGO,GHANA,ELFENBEINK�STE,LIBERIA
End Proc
Procedure AFRIKA_AUSWAHL4
C=Choice(2)
On C Proc GUINEA,SENEGAL,SIERRA_LEONE,MAURETANIEN,SAHARA,MALI,OBERVOLTA,NIGER,MADAGASKAR
End Proc
Procedure PROGRAMM_AFRIKA
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure LOESCHEN_NORDAM
Ink 6
Bar 341,31 To 618,188
End Proc
Procedure MAROKKO
Ink 2 : Paper 6 : Pen 2 : Paint 55,25
Print At(47,5);"Marokko Rabat"
Print At(47,8);"Einwohner: 22 800 000"
Print At(47,10);"W�hrung: Dirham"
Print At(46,14);"Gesamtfl�che 458 730 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"17.6% Ackerl. u. Baumkulturen"
Print At(47,18);"17.2% Wiesen u. Dauerweiden"
Print At(47,19);"12.0% Hoch- u. Buschwald"
Print At(47,20);"53.2% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 55,25
End Proc
Procedure ALGERIEN
Ink 2 : Paper 6 : Pen 2 : Paint 97,30
Print At(47,4);"Algerien Algier"
Print At(47,8);"Einwihner: 21 400 000"
Print At(47,10);"W�hrung: Algerischer Dinar"
Print At(46,14);"Gesamtfl�che 2 293 190 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"2.9% Ackerl. u. Baumkulturen"
Print At(47,18);"15.7% Wiesen u. Dauerweiden"
Print At(47,19);"1.0% Hoch- u. Buschwald"
Print At(47,20);"80.4% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 97,30
End Proc
Procedure TUNESIEN
Ink 2 : Paper 6 : Pen 2 : Paint 125,17
Print At(47,4);"Tunesien Tunis"
Print At(47,8);"Einwohner: 7 000 000"
Print At(47,10);"W�hrung: Tunesischer Dinar"
Print At(46,14);"Gesamtfl�che 164 150 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"27.5% Ackerl. u. Baumkulturen"
Print At(47,18);"19.8% Wiesen u. Dauerweiden"
Print At(47,19);"7.5% Hoch- u. Buschwald"
Print At(47,20);"45.2% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 125,17
End Proc
Procedure LIBYEN
Ink 2 : Paper 6 : Pen 2 : Paint 140,35
Print At(47,4);"Libyen Tripolis"
Print At(47,8);"Einwohner: 3 600 000"
Print At(47,10);"W�hrung: Libyscher Dinar"
Print At(46,14);"Gesamtfl�che 1 759 540 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"1.4% Ackerland u. Baumkulturen"
Print At(47,18);"0.6% Wiesen u. Dauerweiden"
Print At(47,19);"0.3% Hoch- u. Buschwald"
Print At(47,20);"97.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 140,35
End Proc
Procedure �GYPTEN
Ink 2 : Paper 6 : Pen 2 : Paint 205,40
Print At(47,4);"�gypten Kairo"
Print At(47,8);"Einwohner: 45 800 000"
Print At(47,10);"W�hrung: �gypt. Pfund"
Print At(46,14);"Gesamtfl�che 1 001 449 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"2.8% Ackerland u. Baumkulturen"
Print At(47,18);"0.0% Wiesen u. Dauerweiden"
Print At(47,19);"0.0% Hoch- u. Buschwald"
Print At(47,20);"97.2% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 205,40
End Proc
Procedure SUDAN
Ink 2 : Paper 6 : Pen 2 : Paint 210,70
Print At(47,4);"Sudan Khartum"
Print At(47,8);"Einwohner: 20 900 000"
Print At(47,10);"W�hrung: Sudanesisches Pfund"
Print At(46,14);"Gesamtfl�che 2 505 813 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"2.8% Ackerland u. Baumkulturen"
Print At(47,18);"9.6% Wiesen u. Dauerweiden"
Print At(47,19);"36.5% Hoch- u. Buschwald"
Print At(47,20);"51.1% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 210,70
End Proc
Procedure �THIOPIEN
Ink 2 : Paper 6 : Pen 2 : Paint 250,85
Print At(47,4);"�thiopien Addis Abeba"
Print At(47,8);"Einwohner: 42 200 000"
Print At(47,10);"W�hrung: Birr"
Print At(46,14);"Gesamtfl�che 1 221 900 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"10.6% Ackerl. u. Baumkulturen"
Print At(47,18);"54.0% Wiesen u. Dauerweiden"
Print At(47,19);"7.2% Hoch- u. Buschwald"
Print At(47,20);"28.2% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 250,85
End Proc
Procedure SOMALIA
Ink 2 : Paper 6 : Pen 2 : Paint 260,95
Print At(47,4);"Somalia Mogadischo"
Print At(47,8);"Einwohner: 5 400 000"
Print At(47,10);"W�hrung: Somalia-Shilling"
Print At(46,14);"Gesamtfl�che 637 657 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"1.5% Ackerl. u. Baumkulturen"
Print At(47,18);"32.3% Wiesen u. Dauerweiden"
Print At(47,19);"22.6% Hoch- u. Buschwald"
Print At(47,20);"43.6% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 260,95
End Proc
Procedure KENIA
Ink 2 : Paper 6 : Pen 2 : Paint 235,95
Print At(47,4);"Kenia Nairobi"
Print At(47,8);"Einwohner: 19 500 000"
Print At(47,10);"W�hrung: Kenia Shilling"
Print At(46,14);"Gesamtfl�che 582 646 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"2.9% Ackerl. u. Baumkulturen"
Print At(47,18);"6.8% Wiesen u. Dauerweiden"
Print At(47,19);"3.9% Hoch- u. Buschwald"
Print At(47,20);"86.4% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 235,95
End Proc
Procedure TUNSANIA
Ink 2 : Paper 6 : Pen 2 : Paint 229,121
Print At(47,4);"Tansania Dodoma"
Print At(47,8);"Einwohner: 21 100 000"
Print At(47,10);"W�hrung: Tansania Shilling"
Print At(46,14);"Gesamtfl�che 939 828 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"12.5% Ackerl. u. Baumkulturen"
Print At(47,18);"47.6% Wiesen u. Dauerweiden"
Print At(47,19);"33.1% Hoch- u. Buschwald"
Print At(47,20);"6.8% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 229,121
End Proc
Procedure UGANDA
Ink 2 : Paper 6 : Pen 2 : Paint 220,96
Print At(47,4);"Uganda Kampala"
Print At(47,8);"Einwohner: 15 200 000"
Print At(47,10);"W�hrung: Uganda Shilling"
Print At(46,14);"Gesamtfl�che 235 886 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"20.7% Ackerl.u. Baumkulturen"
Print At(47,18);"21.2% Wiesen u. Dauerweiden"
Print At(47,19);"38.9% Hoch- u. Buschwald"
Print At(47,20);"19.2% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 220,96
End Proc
Procedure RWANDA
Ink 2 : Paper 6 : Pen 2 : Paint 208,108 : Paint 213,106
Print At(47,4);"Rwanda Kigali"
Print At(47,8);"Einwohner: 5 900 000"
Print At(47,10);"W�hrung: Rwanda Franc"
Print At(46,14);"Gesamtfl�che 26 338 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"26.7% Ackerl. u. Baumkulturen"
Print At(47,18);"31.0% Wiesen u. Dauerweiden"
Print At(47,19);"12.5% Hoch- u. Buschwald"
Print At(47,20);"29.8% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 208,108 : Paint 213,106
End Proc
Procedure MALAVI
Ink 2 : Paper 6 : Pen 2 : Paint 227,132
Print At(47,4);"Malawi Lilongwe"
Print At(47,8);"Einwohner: 6 800 000"
Print At(47,10);"W�hrung: Malawi Kwacha"
Print At(46,14);"Gesamtfl�che 118 484 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"25.1% Ackerl. u. Baumkulturen"
Print At(47,18);"5.1% Wiesen u. Dauerweiden"
Print At(47,19);"19.5% Hoch- u. Buschwald"
Print At(47,20);"50.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 227,132
End Proc
Procedure SAMBIA
Ink 2 : Paper 6 : Pen 2 : Paint 198,139
Print At(47,4);"Sambia Lusaka"
Print At(47,8);"Einwohner: 6 400 000"
Print At(47,10);"W�hrung: Kwacha"
Print At(46,14);"Gesamtfl�che 746 254 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"6.3% Ackerl. u. Baumkulturen"
Print At(47,18);"44.9% Wiesen u. Dauerweiden"
Print At(47,19);"45.1% Hoch- u. Buschwald"
Print At(47,20);"3.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 198,139
End Proc
Procedure SIMBABWE
Ink 2 : Paper 6 : Pen 2 : Paint 211,150
Print At(47,4);"Zimbabwe Salisbury"
Print At(47,8);"Einwohner: 8 000 000"
Print At(47,10);"W�hrung: Zimbabwe Dollar"
Print At(46,14);"Gesamtfl�che 390 622 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"4.7% Ackerl. u. Baumkulturen"
Print At(47,18);"12.5% Wiesen u. Dauerweiden"
Print At(47,19);"60.5% Hoch- u. Buschwald"
Print At(47,20);"22.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 211,150
End Proc
Procedure MOCAMBIQUE
Ink 2 : Paper 6 : Pen 2 : Paint 222,155
Print At(47,4);"Mosambik Maputo"
Print At(47,8);"Einwohner: 13 700 000"
Print At(47,10);"W�hrung: Metical"
Print At(46,14);"Gesamtfl�che 778 009 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"3.4% Ackerl. u. Baumkulturen"
Print At(47,18);"56.2% Wiesen u. Dauerweiden"
Print At(47,19);"24.8% Hoch- u. Buschwald"
Print At(47,20);"15.6% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 222,155
End Proc
Procedure BOTSWANA
Ink 2 : Paper 6 : Pen 2 : Paint 190,155
Print At(47,4);"Botswana Gaborone"
Print At(47,8);"Einwohner: 1 050 000"
Print At(47,10);"W�hrung: Pula"
Print At(46,14);"Gesamtfl�che 600 372 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.7% Ackerl. u. Baumkulturen"
Print At(47,18);"65.8% Wiesen u. Dauerweiden"
Print At(47,19);"1.6% Hoch- u. Buschwald"
Print At(47,20);"31.9% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 190,155
End Proc
Procedure S�DAFFEN
Ink 2 : Paper 6 : Pen 2 : Paint 200,170
Print At(47,4);"S�dafrika Pretoria"
Print At(47,8);"Einwohner: 31 600 000"
Print At(47,10);"W�hrung: Rand"
Print At(46,14);"Gesamtfl�che 1 221 037 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"9.9% Ackerl. u. Baumkulturen"
Print At(47,18);"74.0% Wiesen u. Dauerweiden"
Print At(47,19);"3.4% Hoch- u. Buschwald"
Print At(47,20);"12.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 200,170
End Proc
Procedure NAMIBIA
Ink 2 : Paper 6 : Pen 2 : Paint 155,165
Print At(47,4);"Namibia Windhuk"
Print At(47,8);"Einwohner: 1 500 000"
Print At(46,14);"Gesamtfl�che 824 292 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.8% Ackerl. u. Baumkulturen"
Print At(47,18);"64.2% Wiesen u. Dauerweiden"
Print At(47,19);"12.6% Hoch- u. Buschwald"
Print At(47,20);"22.4% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 155,165
End Proc
Procedure ANGOLA
Ink 2 : Paper 6 : Pen 2 : Paint 150,130
Print At(47,4);"Angola Luanda"
Print At(47,8);"Einwohner: 8 500 000"
Print At(47,10);"W�hrung: Kwanza"
Print At(46,14);"Gesamtfl�che 1 246 700 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.7% Ackerl. u. Baumkulturen"
Print At(47,18);"23.3% Wiesen u. Dauerweiden"
Print At(47,19);"34.6% Hoch- u. Buschwald"
Print At(47,20);"41.4% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 150,130
End Proc
Procedure KONGO
Ink 2 : Paper 6 : Pen 2 : Paint 150,105
Print At(47,4);"Kongo Brazzaville"
Print At(47,8);"Einwohner: 1 700 000"
Print At(47,10);"W�hrung: GFA-Franc"
Print At(46,14);"Gesamtfl�che 342 000 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"1.8% Ackerl. u. Baumkulturen"
Print At(47,18);"41.8% Wiesen u. Dauerweiden"
Print At(47,19);"47.5% Hoch- u. Buschwald"
Print At(47,20);"8.9% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 150,105
End Proc
Procedure GABUN
Ink 2 : Paper 6 : Pen 2 : Paint 125,110
Print At(47,4);"Gabun Libreville"
Print At(47,8);"Einwohner: 1 100 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 267 667 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.5% Ackerl. u. Baumkulturen"
Print At(47,18);"19.0% Wiesen u. Dauerweiden"
Print At(47,19);"74.7% Hoch- u. Buschwald"
Print At(47,20);"5.8% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 125,110
End Proc
Procedure KAMERUN
Ink 2 : Paper 6 : Pen 2 : Paint 132,92
Print At(47,4);"Kamerun Jaunde"
Print At(47,8);"Einwohner: 9 500 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 475 442 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"9.0% Ackerl. u. Baumkulturen"
Print At(47,18);"17.5% Wiesen u. Dauerweiden"
Print At(47,19);"63.2% Hoch- u. Buschwald"
Print At(47,20);"10.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 132,92
End Proc
Procedure ZAIRE
Ink 2 : Paper 6 : Pen 2 : Paint 160,115
Print At(47,4);"Zaire Kinshasa"
Print At(47,8);"Einwohner: 29 700 000"
Print At(47,10);"W�hrung: Za�re"
Print At(46,14);"Gesamtfl�che 2 345 409 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"3.1% Ackerl. u. Baumkulturen"
Print At(47,18);"27.9% Wiesen u. Dauerweiden"
Print At(47,19);"55.1% Hoch- u. Buschwald"
Print At(47,20);"13.9% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 160,115
End Proc
Procedure ZENTRALAFRIKA
Ink 2 : Paper 6 : Pen 2 : Paint 160,85
Print At(47,4);"Zentralafrika Bangi"
Print At(47,8);"Einwohner: 2 500 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 622 984 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"9.5% Ackerl. u. Baumkulturen"
Print At(47,18);"0.2% Wiesen u. Dauerweiden"
Print At(47,19);"12.0% Hoch- u. Buschwald"
Print At(47,20);"78.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 160,85
End Proc
Procedure TSCHAD
Ink 2 : Paper 6 : Pen 2 : Paint 160,70
Print At(47,4);"Tschad Ndjamena"
Print At(47,8);"Einwohner: 4 900 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 1 284 000 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"5.4% Ackerl. u. Baumkulturen"
Print At(47,18);"35.0% Wiesen u. Dauerweiden"
Print At(47,19);"12.9% Hoch- u. Buschwald"
Print At(47,20);"46.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 160,70
End Proc
Procedure NIGERIA
Ink 2 : Paper 6 : Pen 2 : Paint 110,80
Print At(47,4);"Nigeria Lagos"
Print At(47,8);"Einwohner: 92 000 000"
Print At(47,10);"W�hrung: Naira"
Print At(46,14);"Gesamtfl�che 923 768 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"23.6% Ackerl. u. Baumkulturen"
Print At(47,18);"27.9% Wiesen u. Dauerweiden"
Print At(47,19);"34.2% Hoch- u. Buschwald"
Print At(47,20);"14.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 110,80
End Proc
Procedure BENIN
Ink 2 : Paper 6 : Pen 2 : Paint 93,85
Print At(47,4);"Benin Porto Novo"
Print At(47,8);"Einwohner: 3 800 000"
Print At(47,10);"W�hrung:CFA-Franc"
Print At(46,14);"Gesamtfl�che 112 622 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"13.7% Ackerl. u. Baumkulturen"
Print At(47,18);"3.9% Wiesen u. Dauerweiden"
Print At(47,19);"19.2% Hoch- u. Buschwald"
Print At(47,20);"63.2% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 93,85
End Proc
Procedure TUGO
Ink 2 : Paper 6 : Pen 2 : Paint 86,84
Print At(47,4);"Togo Lome"
Print At(47,8);"Einwohner: 2 800 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 56 600 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"38.6% Ackerl. u. Baumkulturen"
Print At(47,18);"3.5% Wiesen u. Dauerweiden"
Print At(47,19);"9.5% Hoch- u. Buschwald"
Print At(47,20);"48.4% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 86,84
End Proc
Procedure GHANA
Ink 2 : Paper 6 : Pen 2 : Paint 75,85
Print At(47,4);"Ghana Accra"
Print At(47,8);"Einwohner: 13 000 000"
Print At(47,10);"W�hrung: Cedi"
Print At(46,14);"Gesamtfl�che 238 538 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"11.9% Ackerl. u. Baumkulturen"
Print At(47,18);"47.1% Wiesen u. Dauerweiden"
Print At(47,19);"10.3% Hoch- u. Buschwald"
Print At(47,20);"30.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 75,85
End Proc
Procedure ELFENBEINK�STE
Ink 2 : Paper 6 : Pen 2 : Paint 60,85
Print At(47,4);"Elfenbeink�ste Abidjan"
Print At(47,8);"Einwohner: 9 500 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 322 463 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"27.4% Ackerl. u. Baumkulturen"
Print At(47,18);"24.8% Wiesen u. Dauerweiden"
Print At(47,19);"37.2% Hoch- u. Buschwald"
Print At(47,20);"10.6% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 60,85
End Proc
Procedure LIBERIA
Ink 2 : Paper 6 : Pen 2 : Paint 45,90
Print At(47,4);"Liberia Monrovia"
Print At(47,8);"Einwohner: 2 100 000"
Print At(47,10);"W�hrung: Liberianischer Dollar"
Print At(46,14);"Gesamtfl�che 111 369 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"34.5% Ackerl. u. Baumkulturen"
Print At(47,18);"2.2% Wiesen u. Dauerweiden"
Print At(47,19);"32.5% Hoch- u. Buschwald"
Print At(47,20);"30.8% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 45,90
End Proc
Procedure GUINEA
Ink 2 : Paper 6 : Pen 2 : Paint 25,75
Print At(47,4);"Guinea Conakry"
Print At(47,8);"Einwohner: 5 300 000"
Print At(47,10);"W�hrung: Syli"
Print At(46,14);"Gesamtfl�che 245 857 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.0% Ackerl. u. Baumkulturen"
Print At(47,18);"4.3% Wiesen u. Dauerweiden"
Print At(47,19);"0.0% Hoch- u. Buschwald"
Print At(47,20);"95.7% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 25,75
End Proc
Procedure SENEGAL
Ink 2 : Paper 6 : Pen 2
Paint 29,66
Print At(47,4);"Senegal Dakar"
Print At(47,8);"Einwohner: 6 400 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 196 722 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"28.4% Ackerl., Baumkulturen"
Print At(47,18);"29.0% Wiesen u. Dauerweiden"
Print At(47,19);"27.1% Hoch- u. Buschwald"
Print At(47,20);"15.5% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 29,66
End Proc
Procedure SIERRA_LEONE
Ink 2 : Paper 6 : Pen 2
Paint 32,86
Print At(47,4);"Sierra Leone Freetown"
Print At(47,8);"Einwohner: 3 500 000"
Print At(47,10);"W�hrung: Leone"
Print At(46,14);"Gesamtfl�che 71 740 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"51.1% Ackerl. u. Baumkulturen"
Print At(47,18);"30.7% Wiesen u. Dauerweiden"
Print At(47,19);"4.2% Hoch- u. Buschwald"
Print At(47,20);"14.0% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 32,86
End Proc
Procedure MAURETANIEN
Ink 2 : Paper 6 : Pen 2
Paint 20,60
Print At(47,4);"Mauretanien Nuakschott"
Print At(47,8);"Einwohner: 1 800 000"
Print At(47,10);"W�hrung: Ouguiya"
Print At(46,14);"Gesamtfl�che 1 030 700 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"0.3% Ackerl. u. Baumkulturen"
Print At(47,18);"38.1% Wiesen u. Dauerweiden"
Print At(47,19);"14.7% Hoch- u. Buschwald"
Print At(47,20);"46.9% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 20,60
End Proc
Procedure SAHARA
Ink 2 : Paper 6 : Pen 2
Paint 30,40
Print At(47,4);"Sahara El Aaiun"
Print At(47,8);"Einwohner: 150 000"
Print At(47,14);"Gesamtfl�che 266 000 km";Chr$(178)
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 30,40
End Proc
Procedure MALI
Ink 2 : Paper 6 : Pen 2
Paint 37,67
Print At(47,4);"Mali Bamako"
Print At(47,8);"Einwohner: 7 700 000"
Print At(47,10);"W�hrung: Mali-Franc"
Print At(46,14);"Gesamtfl�che 1 240 142 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"9.4% Ackerl. u. Baumkulturen"
Print At(47,18);"24.2% Wiesen u. Dauerweiden"
Print At(47,19);"3.6% Hoch- u. Buschwald"
Print At(47,20);"62.8% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 37,67
End Proc
Procedure OBERVOLTA
Ink 2 : Paper 6 : Pen 2 : Paint 78,73
Print At(47,4);"Obervolta Wagadugu"
Print At(47,8);"Einwohner: 6 600 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 274 200 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"19.6% Ackerl. u. Baumkulturen"
Print At(47,18);"50.1% Wiesen u. Dauerweiden"
Print At(47,19);"15.0% Hoch- u. Buschwald"
Print At(47,20);"15.3% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 78,73
End Proc
Procedure NIGER
Ink 2 : Paper 6 : Pen 2 : Paint 110,60
Print At(47,4);"Niger Niamey"
Print At(47,8);"Einwohner: 5 900 000"
Print At(47,10);"W�hrung: CFA-Franc"
Print At(46,14);"Gesamtfl�che 1 267 000 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"9.6% Ackerl. u. Baumkulturen"
Print At(47,18);"2.3% Wiesen u. Dauerweiden"
Print At(47,19);"12.3% Hoch- u. Buschwald"
Print At(47,20);"75.8% �dland, Binnengew."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 110,60
End Proc
Procedure MADAGASKAR
Ink 2 : Paper 6 : Pen 2 : Paint 275,160
Print At(47,4);"Madagaskar Antananativo"
Print At(47,8);"Einwohner: 9 700 000"
Print At(47,10);"W�hrung: Madagaskar-Franc"
Print At(46,14);"Gesamtfl�che 587 041 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,17);"4.9% Ackerl. u. Baumkulturen"
Print At(47,18);"57.9% Wiesen u. Dauerweiden"
Print At(47,19);"21.3% Hoch- u. Buschwald"
Print At(47,20);"15.9% �dland, Binnengew. etc."
SCHLAF
LOESCHEN_NORDAM
Ink 5
Paint 275,160
End Proc
Procedure AUSTRALIEN
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then AUSTRALIENSTADT
If WAHL$="S" Then AUSTRALIENSTADT
If WAHL$="l" Then AUSTRALIENLANDFRAGEN
If WAHL$="L" Then AUSTRALIENLANDFRAGEN
Paper 7
Loop
End Proc
Procedure AUSTRALIENSTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(7)+1
Do
NB=Rnd(7)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(7)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(7)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT4$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT4$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT4$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT4$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND4$(NA)
Locate 44+Len(LAND4$(NA)),16
Input A
If A<1 or A>8
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 8 und nicht kleiner als 1 sein."
Else
If STADT4$(A)=STADT4$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
AUSTRALIA
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure AUSTRALIENLANDFRAGEN
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein."
NA=Rnd(7)+1
Do
NB=Rnd(7)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(7)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(7)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND4$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND4$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND4$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND4$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT4$(NA)
Locate 54+Len(STADT4$(NA)),16
Input A
If A<1 or A>8
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 8 und nicht kleiner als 1 sein."
Else
If LAND4$(A)=LAND4$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND4$(NA);" ist in ";STADT4$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND4$(NA);" ist ";STADT4$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
AUSTRALIA
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure LOESCHEN_AUSTRAL
Ink 6
Bar 361,30 To 618,193
End Proc
Procedure AUSTRALIA
Unpack 10 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus "
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Malaysia "
Menu$(2,2)="Indonesien "
Menu$(2,3)="Papua-Neuguin. "
Menu$(2,4)="Fitschi-Inseln "
Menu$(2,5)="Neuseeland "
Menu$(2,6)="Australien "
Repeat
On Menu Proc PROGRAMM_AUSTR,AUSTRALIEN_AUSWAHL
On Menu On
Menu On
Until False
End Proc
Procedure AUSTRALIEN_AUSWAHL
C=Choice(2)
On C Proc MALAYSIA,INDONESIEN,PAPUA,FITSCHI,NEUSEELAND,AUSTRALIENLAND
End Proc
Procedure PROGRAMM_AUSTR
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure MALAYSIA
Ink 2 : Paint 52,25 : Paint 113,23
Paper 6 : Pen 2
Print At(48,4);"Malaysia Kuala Lumpur"
Print At(46,14);"Gesamtfl�che 332 632 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(47,18);"10.6% Ackerl. u. Baumkulturen"
Print At(47,19);"15.0% Wiesen u. Dauerweiden"
Print At(47,20);"74.4% Hoch- u. Buschwald"
Print At(48,21);"0.0% �dland, Binnengew. etc."
Print At(48,8);"Einwohner: 15 200 000"
Print At(48,10);"W�hrung: Malayischer Ringgit"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 52,25 : Paint 113,23
End Proc
Procedure INDONESIEN
Ink 2 : Paint 40,40 : Paint 69,59 : Paint 113,27 : Paint 123,46 : Paint 140,63 : Paint 205,55
Paper 6 : Pen 2
Print At(48,4);"Indonesien Djakarta"
Print At(46,14);"Gesamtfl�che 1 482 394 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(48,18);"9.5% Ackerl. u. Baumkulturen"
Print At(48,19);"0.0% Wiesen u. Dauerweiden"
Print At(47,20);"63.9% Hoch- u. Buschwald"
Print At(47,21);"26.6% �dland, Binnengew. etc."
Print At(47,8);"Einwohner: 163 400 000"
Print At(47,10);"W�hrung: Rupiah"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 40,40 : Paint 69,59 : Paint 113,27 : Paint 123,46 : Paint 140,63 : Paint 205,55
End Proc
Procedure PAPUA
Ink 2 : Paint 215,55
Paper 6 : Pen 2
Print At(48,4);"Papua-Neuguinea Konedugu"
Print At(48,10);"Gesamtfl�che 461 700 km";Chr$(178)
Print At(48,6);"Einwohner: 3 600 000"
Print At(48,8);"W�hrung: Kina"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 215,55
End Proc
Procedure FITSCHI
Ink 2 : Paint 310,91
Paper 6 : Pen 2
Print At(48,4);"Fitschi-Ins. Suva"
Print At(48,10);"Gesamtfl�che 18 300 km";Chr$(178)
Print At(48,6);"Einwohner: 690 000"
Print At(48,8);"W�hrung: Fidschi Dollar"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 310,91
End Proc
Procedure NEUSEELAND
Ink 2 : Paint 274,153 : Paint 250,160
Paper 6 : Pen 2
Print At(48,4);"Neuseeland Wellington"
Print At(46,14);"Gesamtfl�che 268 675 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(48,18);"3.0% Ackerl. u. Baumkulturen"
Print At(47,19);"47.8% Wiesen u. Dauerweiden"
Print At(47,20);"23.1% Hoch- u. Buschwald"
Print At(47,21);"26.1% �dland, Binnengew. etc."
Print At(47,8);"Einwohner: 3 200 000"
Print At(47,10);"W�hrung: Neuseeland Dollar"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 274,153 : Paint 250,160
End Proc
Procedure AUSTRALIENLAND
Ink 2 : Paint 220,120 : Paint 180,155
Paper 6 : Pen 2
Print At(48,4);"Australien Canberra"
Print At(46,14);"Gesamtfl�che 7 686 849 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(48,18);"5.8% Ackerl. u. Baumkulturen"
Print At(47,19);"58.6% Wiesen u. Dauerweiden"
Print At(48,20);"4.5% Hoch- u. Buschwald"
Print At(47,21);"31.1% �dland, Binnengew. etc."
Print At(47,8);"Einwohner: 15 500 000"
Print At(47,10);"W�hrung: Australischer Dollar"
SCHLAF
LOESCHEN_AUSTRAL
Ink 5 : Paint 220,120 : Paint 180,155
End Proc
Procedure S�DAMERIKA
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then S�DAMERIKASTADT
If WAHL$="S" Then S�DAMERIKASTADT
If WAHL$="l" Then S�DAMERIKALAND
If WAHL$="L" Then S�DAMERIKALAND
Paper 7
Loop
End Proc
Procedure S�DAMERIKASTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(12)+1
Do
NB=Rnd(12)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(12)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(12)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT5$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT5$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT5$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT5$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND5$(NA)
Locate 44+Len(LAND5$(NA)),16
Input A
If A<1 or A>13
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 13 und nicht kleiner als 1 sein."
Else
If STADT5$(A)=STADT5$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
SUEDAMI
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure S�DAMERIKALAND
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein."
NA=Rnd(12)+1
Do
NB=Rnd(12)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(12)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(12)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND5$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND5$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND5$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND5$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT5$(NA)
Locate 54+Len(STADT5$(NA)),16
Input A
If A<1 or A>13
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 13 und nicht kleiner als 1 sein."
Else
If LAND5$(A)=LAND5$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND5$(NA);" ist in ";STADT5$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND5$(NA);" ist ";STADT5$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
SUEDAMI
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure SUEDAMI
Unpack 8 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus "
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Brasilien "
Menu$(2,2)="Venezuela "
Menu$(2,3)="Guyana "
Menu$(2,4)="Surinam "
Menu$(2,5)="Franz.Guyana "
Menu$(2,6)="Kolumbien "
Menu$(3)="Land 2. Teil "
Menu$(3,1)="Ecuador "
Menu$(3,2)="Peru "
Menu$(3,3)="Bolivien "
Menu$(3,4)="Paraguy "
Menu$(3,5)="Chile "
Menu$(3,6)="Uruguay "
Menu$(3,7)="Argentinien "
Repeat
On Menu Proc PROGRAMM_SUEDAMERIKA,SUEDAMERIKA_AUSWAHL1,SUEDAMERIKA_AUSWAHL2
On Menu On
Menu On
Until False
End Proc
Procedure SUEDAMERIKA_AUSWAHL1
C=Choice(2)
On C Proc BRASILIEN,VENEZUELA,GUYANA,SURINAME,FRANZ,KOLUMBIEN
End Proc
Procedure SUEDAMERIKA_AUSWAHL2
C=Choice(2)
On C Proc ECUADOR,PERU,BOLIVIEN,PARAGUAY,CHILE,URUGUAY,ARGENTINIEN
End Proc
Procedure PROGRAMM_SUEDAMERIKA
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure BRASILIEN
Ink 2 : Paint 160,90
Paper 6 : Pen 2
Print At(44,4);"Brasilien Brasilia"
Print At(42,14);"Gesamtfl�che 8 511 965 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"3.5% Ackerland u. Baumkulturen"
Print At(43,19);"12.6% Wiesen u. Dauerweiden"
Print At(43,20);"60.8% Hoch- u. Buschwald"
Print At(43,21);"23.1% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 132 600 000"
Print At(43,10);"W�hrung: Cruzeiro"
SCHLAF
LOESCHEN
Ink 5 : Paint 160,90
End Proc
Procedure VENEZUELA
Ink 2 : Paint 90,20
Paper 6 : Pen 2
Print At(44,4);"Venezuela Caracas"
Print At(42,14);"Gesamtfl�che 912 050 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"5.7% Ackerland u. Baumkulturen"
Print At(43,19);"15.2% Wiesen u. Dauerweiden"
Print At(43,20);"52.6% Hoch- u. Buschwald"
Print At(43,21);"26.5% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 16 900 000"
Print At(43,10);"W�hrung: Bolivar"
SCHLAF
LOESCHEN
Ink 5 : Paint 90,20
End Proc
Procedure GUYANA
Ink 2 : Paint 120,30 : Paint 128,30
Paper 6 : Pen 2
Print At(44,4);"Guyana Georgetown"
Print At(42,14);"Gesamtfl�che 214 970 km";Chr$(178)
Print At(48,16);"incl. Guyana und Suriname"
Print At(44,18);"3.8% Ackerland u. Baumkulturen"
Print At(43,19);"11.3% Wiesen u. Dauerweiden"
Print At(43,20);"65.9% Hoch- u. Buschwald"
Print At(43,21);"19.0% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 940 000"
Print At(43,10);"W�hrung: Guyana Dollar"
SCHLAF
LOESCHEN
Ink 5 : Paint 128,30 : Paint 120,30
End Proc
Procedure SURINAME
Ink 2 : Paint 133,31
Paper 6 : Pen 2
Print At(44,4);"Suriname Paramaribo"
Print At(42,14);"Gesamtfl�che 214 970 km";Chr$(178)
Print At(48,16);"incl. Guyana und Suriname"
Print At(44,18);"3.8% Ackerland u. Baumkulturen"
Print At(43,19);"11.3% Wiesen u. Dauerweiden"
Print At(43,20);"65.9% Hoch- u. Buschwald"
Print At(43,21);"19.0% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 350 000"
Print At(43,10);"W�hrung: Surinam Gulden"
SCHLAF
LOESCHEN
Ink 5 : Paint 133,31
End Proc
Procedure FRANZ
Ink 2 : Paint 144,32 : Paint 145,37
Paper 6 : Pen 2
Print At(44,4);"Franz.Guayana Cayenne"
Print At(42,14);"Gesamtfl�che 214 970 km";Chr$(178)
Print At(48,16);"incl. Guyana und Suriname"
Print At(44,18);"3.8% Ackerland u. Baumkulturen"
Print At(43,19);"11.3% Wiesen u. Dauerweiden"
Print At(43,20);"65.9% Hoch- u. Buschwald"
Print At(43,21);"19.0% �dland, Binnengew. etc."
SCHLAF
LOESCHEN
Ink 5 : Paint 144,32 : Paint 145,37
End Proc
Procedure KOLUMBIEN
Ink 2 : Paint 62,34
Paper 6 : Pen 2
Print At(44,4);"Kolumbien Bogota"
Print At(42,14);"Gesamtfl�che 1 138 914 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"4.6% Ackerland u. Baumkulturen"
Print At(43,19);"15.0% Wiesen u. Dauerweiden"
Print At(43,20);"45.0% Hoch- u. Buschwald"
Print At(43,21);"35.4% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 28 200 000"
Print At(43,10);"W�hrung: Kolumbianischer Peso"
SCHLAF
LOESCHEN
Ink 5 : Paint 62,34
End Proc
Procedure ECUADOR
Ink 2 : Paint 36,47
Paper 6 : Pen 2
Print At(44,4);"Ecuador Quito"
Print At(42,14);"Gesamtfl�che 283 561 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(43,18);"13.5% Ackerland u. Baumkulturen"
Print At(44,19);"7.8% Wiesen u. Dauerweiden"
Print At(43,20);"52.4% Hoch- u. Buschwald"
Print At(43,21);"26.3% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 9 100 000"
Print At(43,10);"W�hrung: Sucre"
SCHLAF
LOESCHEN
Ink 5 : Paint 36,47
End Proc
Procedure PERU
Ink 2 : Paint 50,78
Paper 6 : Pen 2
Print At(44,4);"Peru Lima"
Print At(42,14);"Gesamtfl�che 1 285 216 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"2.2% Ackerland u. Baumkulturen"
Print At(43,19);"21.3% Wiesen u. Dauerweiden"
Print At(43,20);"67.7% Hoch- u. Buschwald"
Print At(44,21);"8.8% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 19 700 000"
Print At(43,10);"W�hrung: Sol"
SCHLAF
LOESCHEN
Ink 5 : Paint 50,78
End Proc
Procedure BOLIVIEN
Ink 2 : Paint 92,80
Paper 6 : Pen 2
Print At(44,4);"Bolivien La Paz"
Print At(42,14);"Gesamtfl�che 1 098 581 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"2.8% Ackerland u. Baumkulturen"
Print At(43,19);"10.3% Wiesen u. Dauerweiden"
Print At(43,20);"42.8% Hoch- u. Buschwald"
Print At(43,21);"44.1% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 6 400 000"
Print At(43,10);"W�hrung: Peso Boliviano"
SCHLAF
LOESCHEN
Ink 5 : Paint 92,80
End Proc
Procedure PARAGUAY
Ink 2 : Paint 130,105
Paper 6 : Pen 2
Print At(44,4);"Paraguay Asuncion"
Print At(42,14);"Gesamtfl�che 406 752 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"2.3% Ackerland u. Baumkulturen"
Print At(43,19);"24.6% Wiesen u. Dauerweiden"
Print At(43,20);"50.5% Hoch- u. Buschwald"
Print At(43,21);"22.6% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 3 300 000"
Print At(43,10);"W�hrung: Guarani"
SCHLAF
LOESCHEN
Ink 5 : Paint 130,105
End Proc
Procedure CHILE
Ink 2 : Paint 91,125 : Paint 91,135
Paper 6 : Pen 2
Print At(44,4);"Chile Santiago de Chile"
Print At(42,14);"Gesamtfl�che 756 945 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"6.1% Ackerland u. Baumkulturen"
Print At(43,19);"14.8% Wiesen u. Dauerweiden"
Print At(43,20);"27.3% Hoch- u. Buschwald"
Print At(43,21);"51.8% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 12 000 000"
Print At(43,10);"W�hrung: Chilenischer Peso"
SCHLAF
LOESCHEN
Ink 5 : Paint 91,125 : Paint 91,135
End Proc
Procedure URUGUAY
Ink 2 : Paint 150,125
Paper 6 : Pen 2
Print At(44,4);"Uruguay Montevideo"
Print At(42,14);"Gesamtfl�che 177 508 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(43,18);"11.0% Ackerland u. Baumkulturen"
Print At(43,19);"77.2% Wiesen u. Dauerweiden"
Print At(44,20);"3.2% Hoch- u. Buschwald"
Print At(44,21);"8.6% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 2 900 000"
Print At(43,10);"W�hrung: Uruguayischer neuer Peso"
SCHLAF
LOESCHEN
Ink 5 : Paint 150,125
End Proc
Procedure ARGENTINIEN
Ink 2 : Paint 130,125
Paper 6 : Pen 2
Print At(44,4);"Argentinien Buenos Aires"
Print At(42,14);"Gesamtfl�che 2 776 889 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(44,18);"9.4% Ackerland u. Baumkulturen"
Print At(43,19);"52.2% Wiesen u. Dauerweiden"
Print At(43,20);"22.6% Hoch- u. Buschwald"
Print At(43,21);"15.8% �dland, Binnengew. etc."
Print At(43,8);"Einwohner: 30 600 000"
Print At(43,10);"W�hrung: Argentinischer Peso"
SCHLAF
LOESCHEN
Ink 5 : Paint 130,125
End Proc
Procedure SCHLAF
Repeat
M=Mouse Key
Until M=2
End Proc
Procedure LOESCHEN
Ink 6
Bar 330,30 To 609,180
End Proc
Procedure NORDAMERIKA
Paper 7
Do
Cls
Ink 0
Bar 30,85 To 620,175
Ink 5
Bar 20,80 To 610,170
Paper 5 : Pen 0
Print At(4,12);"Was wollen sie erraten? "
Print At(4,14);"Um das jeweilige Land zu erraten dr�cken Sie den Buchstaben < L >,"
Print At(4,16);"oder um die Stadt zu erraten den Buchstaben < S >."
Locate 4,18
Input "Ihre Wahl bitte :";WAHL$
If WAHL$="s" Then NORDAMERIKASTADT
If WAHL$="S" Then NORDAMERIKASTADT
If WAHL$="l" Then NORDAMERIKALAND
If WAHL$="L" Then NORDAMERIKALAND
Paper 7
Loop
End Proc
Procedure NORDAMERIKASTADT
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie die richtige der gesuchten Hauptstadt ein.."
NA=Rnd(13)+1
Do
NB=Rnd(13)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(13)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(13)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);STADT$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);STADT$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);STADT$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);STADT$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"Welche Nummer hat die Hauptstadt von ";LAND$(NA)
Locate 44+Len(LAND$(NA)),16
Input A
If A<1 or A>14
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 14 und nicht kleiner als 1 sein."
Else
If STADT$(A)=STADT$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
NORDAMI
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure NORDAMERIKALAND
Paper 7 : Cls
Do
Ink 0
Bar 48,18 To 580,30
Ink 2
Bar 38,13 To 570,25
Paper 2 : Pen 4
Print At(7,2);"Bitte geben Sie das richtige gesuchte Land ein."
NA=Rnd(13)+1
Do
NB=Rnd(13)+1
Exit If NB<>NA
Loop
Do
NC=Rnd(13)+1
Exit If NC<>NA and NC<>NB
Loop
Do
ND=Rnd(13)+1
Exit If ND<>NC and ND<>NB and ND<>NA
Loop
ME=Rnd(3)+1
Do
MF=Rnd(3)+1
Exit If MF<>ME
Loop
Do
MG=Rnd(3)+1
Exit If MG<>MF and MG<>ME
Loop
Do
MH=Rnd(3)+1
Exit If MH<>MG and MH<>MF and MH<>ME
Loop
ME=ME*2
MF=MF*2
MG=MG*2
MH=MH*2
Ink 0
Bar 230,48 To 459,112
Ink 5
Bar 220,43 To 449,108
FER=0
If NA=<9
FER=1
Else
FER=0
End If
Paper 5 : Pen 10
Print At(29+FER,4+ME);NA
Print At(34,4+ME);LAND$(NA)
If NB=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MF);NB
Print At(34,4+MF);LAND$(NB)
If NC=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MG);NC
Print At(34,4+MG);LAND$(NC)
If ND=<9
FER=1
Else
FER=0
End If
Print At(29+FER,4+MH);ND
Print At(34,4+MH);LAND$(ND)
Ink 0
Bar 40,130 To 610,146
Ink 14
Bar 30,125 To 600,141
Paper 14 : Pen 2
Print At(7,16);"In welchem Land befindet sich die Hauptstadt ";STADT$(NA)
Locate 54+Len(STADT$(NA)),16
Input A
If A<1 or A>14
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Eingabefehler"
Print At(10,22);"Die Zahl darf nicht gr��er als 14 und nicht kleiner als 1 sein."
Else
If LAND$(A)=LAND$(NA)
Ink 0
Bar 50,160 To 610,195
Ink 5
Bar 40,155 To 600,190
Paper 5 : Pen 13
Print At(32,20);"Richtig."
Print At(8,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"."
Else
Ink 0
Bar 30,160 To 610,193
Ink 4
Bar 20,155 To 600,188
Paper 4 : Pen 2
Print At(32,20);"Falsch"
Print At(10,22);"Die Hauptstadt von ";LAND$(NA);" ist ";STADT$(NA);"."
End If
End If
Ink 0
Bar 50,210 To 610,226
Ink 13
Bar 40,205 To 600,221
Paper 13 : Pen 2
Locate 8,26
Input "Beenden mit <e>, Karte mit <k>, weiter mit <Return>.";ZURUECK$
Exit If ZURUECK$="e"
Exit If ZURUECK$="E"
If ZURUECK$="k"
NORDAMI
End If
A=Free
Paper 7
Cls
Loop
AUSWAHL
End Proc
Procedure NORDAMI
Unpack 9 To 1
Show : Curs Off
Menu$(1)="Programm "
Menu$(1,1)="Info "
Menu$(1,2)="Musik aus "
Menu$(1,3)="Ende "
Menu$(2)=" Land 1.Teil "
Menu$(2,1)="Kanada "
Menu$(2,2)="U S A "
Menu$(2,3)="Mexico "
Menu$(2,4)="Belize "
Menu$(2,5)="Guatemala "
Menu$(2,6)="San Salvador "
Menu$(2,7)="Honduras "
Menu$(3)="Land 2. Teil "
Menu$(3,1)="Nicaragua "
Menu$(3,2)="Costa Rica "
Menu$(3,3)="Panama "
Menu$(3,4)="Kuba "
Menu$(3,5)="Jamaica "
Menu$(3,6)="Haiti "
Menu$(3,7)="Domenikanische Rep. "
Repeat
On Menu Proc PROGRAMM_NORDAMERIKA,NORDAMERIKA_AUSWAHL1,NORDAMERIKA_AUSWAHL2
On Menu On
Menu On
Until False
End Proc
Procedure NORDAMERIKA_AUSWAHL1
C=Choice(2)
On C Proc KANADA,USA,MEXICO,BELIZE,GUATEMALA,SALVADOR,HONDURAS
End Proc
Procedure NORDAMERIKA_AUSWAHL2
C=Choice(2)
On C Proc NICARAGUA,CASTA_RICA,PANAMA,KUBA,JAMAICA,HAITI,DUMANIKAN,BAHA
End Proc
Procedure PROGRAMM_NORDAMERIKA
C=Choice(2)
On C Proc INFO,MUSIK_AUS,ABBRUCH1
End Proc
Procedure KANADA
Ink 2 : Paper 6 : Pen 2 : Paint 200,70
Print At(47,4);"Kanada Ottawa"
Print At(46,14);"Gesamtfl�che 9 976 137 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"4.4% Ackerland u. Baumkulturen"
Print At(46,18);"2.1% Wiesen u. Dauerweiden"
Print At(46,19);"44.4% Hoch- u. Buschwald"
Print At(46,20);"49.1% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 25 400 000"
Print At(46,10);"W�hrung: Kanadischer Dollar"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 200,70
End Proc
Procedure USA
Ink 2 : Paper 6 : Pen 2 : Paint 30,40 : Paint 180,110
Print At(47,4);"USA Washington"
Print At(46,14);"Gesamtfl�che 9 372 600 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"18.8% Ackerland u. Baumkulturen"
Print At(46,18);"27.7% Wiesen u. Dauerweiden"
Print At(46,19);"31.6% Hoch- u. Buschwald"
Print At(46,20);"21.9% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 236 700 000"
Print At(46,10);"W�hrung: US Dollar"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 30,40 : Paint 180,110
End Proc
Procedure MEXICO
Ink 2 : Paper 6 : Pen 2 : Paint 81,150
Print At(47,4);"Mexiko Mexiko"
Print At(46,14);"Gesamtfl�che 1 972 547 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"12.1% Ackerland u. Baumkulturen"
Print At(46,18);"40.1% Wiesen u. Dauerweiden"
Print At(46,19);"22.1% Hoch- u. Buschwald"
Print At(46,20);"25.7% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 78 500 000"
Print At(46,10);"W�hrung: Mexikanischer Peso"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 81,150
End Proc
Procedure BELIZE
Ink 2 : Paper 6 : Pen 2 : Paint 123,161 : Paint 125,158
Print At(47,4);"Belize Belmopan"
Print At(46,14);"Gesamtfl�che 23 000 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"42.4% Ackerland u. Baumkulturen"
Print At(46,18);"28.4% Wiesen u. Dauerweiden"
Print At(46,19);"2.2% Hoch- u. Buschwald"
Print At(46,20);"27.0% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 160 000"
Print At(46,10);"W�hrung: Belize-Dollar"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 123,161 : Paint 125,158
End Proc
Procedure GUATEMALA
Ink 2 : Paper 6 : Pen 2 : Paint 110,165
Print At(47,4);"Guatemala Guatemala"
Print At(46,14);"Gesamtfl�che 108 889 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"13.8% Ackerland u. Baumkulturen"
Print At(46,18);"9.4% Wiesen u. Dauerweiden"
Print At(46,19);"49.6% Hoch- u. Buschwald"
Print At(46,20);"27.2% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 7 700 000"
Print At(46,10);"W�hrung: Quetzal"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 110,165
End Proc
Procedure SALVADOR
Ink 2 : Paper 6 : Pen 2 : Paint 117,171 : Paint 116,168
Print At(47,4);"El Salvador San Salvador"
Print At(46,14);"Gesamtfl�che 21 393 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"29.1% Ackerland u. Baumkulturen"
Print At(46,18);"29.2% Wiesen u. Dauerweiden"
Print At(46,19);"11.2% Hoch- u. Buschwald"
Print At(46,20);"30.5% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 5 400 000"
Print At(46,10);"W�hrung: Col�n"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 117,171 : Paint 116,168
End Proc
Procedure HONDURAS
Ink 2 : Paper 6 : Pen 2 : Paint 123,165
Print At(47,4);"Honduras Tegucigalpa"
Print At(46,14);"Gesamtfl�che 112 088 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"7.3% Ackerland u. Baumkulturen"
Print At(46,18);"30.4% Wiesen u. Dauerweiden"
Print At(46,19);"26.9% Hoch- u. Buschwald"
Print At(46,20);"35.4% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 4 400 000"
Print At(46,10);"W�hrung: Lempira"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 123,165
End Proc
Procedure NICARAGUA
Ink 2 : Paper 6 : Pen 2 : Paint 131,174
Print At(47,4);"Nicaragua Managua"
Print At(46,14);"Gesamtfl�che 148 000 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"6.2% Ackerland u. Baumkulturen"
Print At(46,18);"6.6% Wiesen u. Dauerweiden"
Print At(46,19);"46.2% Hoch- u. Buschwald"
Print At(46,20);"41.0% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 3 200 000"
Print At(46,10);"W�hrung: Cordoba"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 131,174
End Proc
Procedure CASTA_RICA
Ink 2 : Paper 6 : Pen 2 : Paint 136,181 : Paint 142,185
Print At(47,4);"Costa Rica San Jose"
Print At(46,14);"Gesamtfl�che 50 900 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"19.5% Ackerland u. Baumkulturen"
Print At(46,18);"26.9% Wiesen u. Dauerweiden"
Print At(46,19);"49.9% Hoch- u. Buschwald"
Print At(46,20);"3.7% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 2 500 000"
Print At(46,10);"W�hrung: Costa Rica Colon"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 136,181 : Paint 142,185
End Proc
Procedure PANAMA
Ink 2 : Paper 6 : Pen 2 : Paint 153,185 : Paint 160,188
Print At(47,4);"Panama Panama"
Print At(46,14);"Gesamtfl�che 75 650 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"7.5% Ackerland u. Baumkulturen"
Print At(46,18);"11.0% Wiesen u. Dauerweiden"
Print At(46,19);"80.5% Hoch- u. Buschwald"
Print At(46,20);"1.0% �dland, Binnengew. etc."
Print At(46,8);"Einwohner:2 200 000"
Print At(46,10);"W�hrung: Balboa"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 153,185 : Paint 160,188
End Proc
Procedure KUBA
Ink 2 : Paper 6 : Pen 2 : Paint 160,154 : Paint 153,155
Print At(47,4);"Kuba Havanna"
Print At(46,14);"Gesamtfl�che 114 524 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"31.3% Ackerland u. Baumkulturen"
Print At(46,18);"21.1% Wiesen u. Dauerweiden"
Print At(46,19);"26.1% Hoch- u. Buschwald"
Print At(46,20);"21.5% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 10 100 000"
Print At(46,10);"W�hrung: Kubanischer Peso"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 160,154 : Paint 153,155
End Proc
Procedure JAMAICA
Ink 2 : Paper 6 : Pen 2 : Paint 167,168
Print At(47,4);"Jamaica Kingston"
Print At(46,14);"Gesamtfl�che 10 962 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"21.1% Ackerland u. Baumkulturen"
Print At(46,18);"23.4% Wiesen u. Dauerweiden"
Print At(46,19);"19.2% Hoch- u. Buschwald"
Print At(46,20);"36.3% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 2 300 000"
Print At(46,10);"W�hrung: Jamaika Dollar"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 167,168
End Proc
Procedure HAITI
Ink 2 : Paper 6 : Pen 2 : Paint 190,165 : Paint 194,162
Print At(47,4);"Haiti Port of Prince"
Print At(46,14);"Gesamtfl�che 27 750 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"13.3% Ackerland u. Baumkulturen"
Print At(46,18);"18.1% Wiesen u. Dauerweiden"
Print At(46,19);"25.2% Hoch- u. Buschwald"
Print At(46,20);"43.4% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 5 200 000"
Print At(46,10);"W�hrung: Gourde"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 190,165 : Paint 194,162
End Proc
Procedure DUMANIKAN
Ink 2 : Paper 6 : Pen 2 : Paint 200,163
Print At(47,4);"Dominikan. Rep. St.Domingo"
Print At(46,14);"Gesamtfl�che 48 442 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"21.9% Ackerland u. Baumkulturen"
Print At(46,18);"17.8% Wiesen u. Dauerweiden"
Print At(46,19);"45.7% Hoch- u. Buschwald"
Print At(46,20);"14.6% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 6 400 000"
Print At(46,10);"W�hrung: Dominikanischer Peso"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 200,163
End Proc
Procedure BAHA
Ink 2 : Paper 6 : Pen 2 : Paint 177,148 : Paint 184,151
Print At(47,4);"Bahamas Nassau"
Print At(46,14);"Gesamtfl�che 13 900 km";Chr$(178)
Print At(48,16);"davon sind"
Print At(46,17);"60.5% Ackerland u. Baumkulturen"
Print At(46,18);"9.3% Wiesen u. Dauerweiden"
Print At(46,19);"0.0% Hoch- u. Buschwald"
Print At(46,20);"30.2% �dland, Binnengew. etc."
Print At(46,8);"Einwohner: 230 000"
Print At(46,10);"W�hrung: Bahama-Dollar"
SCHLAF
LOESCHEN_NORDAM
Ink 5 : Paint 177,148 : Paint 184,151
End Proc
Procedure JAPAN
Ink 2 : Paper 0 : Pen 2 : Paint 475,115 : Paint 470,95
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);"Land Hauptstadt"
Print At(6,5);"Japan Tokio"
Print At(4,11);"Gesamtfl�che 372 313 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"14.9% Ackerland u. Baumkulturen"
Print At(6,16);"2.6% Wiesen u. Dauerweiden"
Print At(5,17);"69.1% Hoch- u. Buschwald"
Print At(5,18);"13.4% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: ca. 120 800 000"
Print At(5,8);"Sprache: japanisch"
Print At(5,9);"W�hrung: Yen"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 475,115 : Paint 470,95
End Proc
Procedure SUEDKOREA
Ink 2 : Paper 0 : Pen 2 : Paint 427,114
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"N.u.S.Korea Seoul"
Print At(4,11);"Gesamtfl�che 98 500 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"16.0% Ackerland u. Baumkulturen"
Print At(6,16);"0.0% Wiesen u. Dauerweiden"
Print At(5,17);"74.0% Hoch- u. Buschwald"
Print At(5,18);"10.0% �dland, Binnengew. etc."
Print At(5,7);"Einwohner:42 100 000"
Print At(5,8);"W�hrung: Won"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 427,114
End Proc
Procedure NORDKOREA
Ink 2 : Paper 0 : Pen 2 : Paint 418,106
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"N.u.S.Korea Pj�ngjang"
Print At(4,11);"Gesamtfl�che 120 538 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"16.0% Ackerland u. Baumkulturen"
Print At(6,16);"0.0% Wiesen u. Dauerweiden"
Print At(5,17);"74.0% Hoch- u. Buschwald"
Print At(5,18);"10.0% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 19 600 000"
Print At(5,8);"W�hrung: Won"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 418,106
End Proc
Procedure CHINA
Ink 2 : Paper 0 : Pen 2 : Paint 380,110
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);"Land Hauptstadt"
Print At(6,5);"China Peking"
Print At(4,11);"Gesamtfl�che 9 551 000 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"11.5% Ackerland u. Baumkulturen"
Print At(5,16);"18.6% Wiesen u. Dauerweiden"
Print At(6,17);"8.0% Hoch- u. Buschwald"
Print At(5,18);"61.9% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 1 032 700 000"
Print At(5,8);"W�hrung: Reminbi Yaun (RMB.Y)"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 380,110
End Proc
Procedure MONGOLEI
Ink 2 : Paper 0 : Pen 2 : Paint 328,95
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Mongolei Ulan Bator"
Print At(4,11);"Gesamtfl�che 1 565 000 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(6,15);"2.2% Ackerland u. Baumkulturen"
Print At(6,16);"0.0% Wiesen u. Dauerweiden"
Print At(5,17);"16.0% Hoch- u. Buschwald"
Print At(5,18);"81.8% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 1 900 000"
Print At(5,8);"W�hrung: Tugrug (Tug.)"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 328,95
End Proc
Procedure SAUDI
Ink 2 : Paper 0 : Pen 2 : Paint 120,148
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Saudi Arabien Riad"
Print At(2,11);"Gesamtfl�che 2 149 690 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(3,15);"0.4% Ackerland u. Baumkulturen"
Print At(2,16);"39.5% Wiesen u. Dauerweiden"
Print At(3,17);"0.8% Hoch- u. Buschwald"
Print At(2,18);"59.3% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 10 800 000"
Print At(5,8);"W�hrung: Saudi Riyal (S.RI)"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 120,148
End Proc
Procedure ISRAEL
Ink 2 : Paper 0 : Pen 2 : Paint 80,138
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Israel Jerusalem"
Print At(2,11);"Gesamtfl�che 20 700 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"20.4% Ackerland u. Baumkulturen"
Print At(2,16);"39.5% Wiesen u. Dauerweiden"
Print At(3,17);"5.3% Hoch- u. Buschwald"
Print At(2,18);"34.8% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 4 300 000"
Print At(5,8);"W�hrung: Israelische Schekel (IS)"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 80,138
End Proc
Procedure JORDANIEN
Ink 2 : Paper 0 : Pen 2 : Paint 90,135
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Jordanien Amman"
Print At(2,11);"Gesamtfl�che 97 740 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"13.3% Ackerland u. Baumkulturen"
Print At(3,16);"1.0% Wiesen u. Dauerweiden"
Print At(3,17);"1.3% Hoch- u. Buschwald"
Print At(2,18);"84.4% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 3 400 000"
Print At(5,8);"W�hrung:Jordan-Dinar (JD)"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 90,135
End Proc
Procedure LIBANON
Ink 2 : Paper 0 : Pen 2 : Paint 82,126
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Libanon Beirut"
Print At(2,11);"Gesamtfl�che 10 400 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"29.4% Ackerland u. Baumkulturen"
Print At(3,16);"1.0% Wiesen u. Dauerweiden"
Print At(3,17);"9.1% Hoch- u. Buschwald"
Print At(2,18);"60.5% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 2 700 000"
Print At(5,8);"W�hrung: Libanisches Pfund"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 82,126
End Proc
Procedure SYRIEN
Ink 2 : Paper 0 : Pen 2 : Paint 90,120
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Syrien Damaskus"
Print At(2,11);"Gesamtfl�che 185 180 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"31.9% Ackerland u. Baumkulturen"
Print At(2,16);"29.3% Wiesen u. Dauerweiden"
Print At(3,17);"2.4% Hoch- u. Buschwald"
Print At(2,18);"36.4% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 9 900 000"
Print At(2,8);"W�hrung: Syrisches Pfund"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 90,120
End Proc
Procedure IRAK
Ink 2 : Paper 0 : Pen 2 : Paint 110,127
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Irak Bagdad"
Print At(2,11);"Gesamtfl�che 434 000 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"23.4% Ackerland u. Baumkulturen"
Print At(3,16);"0.1% Wiesen u. Dauerweiden"
Print At(3,17);"4.3% Hoch- u. Buschwald"
Print At(2,18);"72.2% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 15 200 000"
Print At(2,8);"W�hrung: Irak Dinar"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 110,127
End Proc
Procedure KUWAIT
Ink 2 : Paper 0 : Pen 2 : Paint 128,139 : Paint 129,141
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Kuwait Kuwait"
Print At(2,11);"Gesamtfl�che 17 800 km";Chr$(178)
Print At(2,13);"Kuwait hat sehr hohe Erd�l-"
Print At(2,14);"vorkommen"
Print At(2,7);"Einwohner: 1 700 000"
Print At(2,8);"W�hrung: Kuwait Dinar"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 128,139 : Paint 129,141
End Proc
Procedure JEMEN
Ink 2 : Paper 0 : Pen 2 : Paint 123,176
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Jemen Sana"
Print At(2,11);"Gesamtfl�che 195 000 km";Chr$(178)
Print At(2,7);"Einwohner: 6 400 000"
Print At(2,8);"W�hrung: Yemen Rial"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 123,176
End Proc
Procedure VOLKJEMEN
Ink 2 : Paper 0 : Pen 2 : Paint 128,180
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Volksrep.Jemen Aden"
Print At(2,11);"Gesamtfl�che 333 000 km";Chr$(178)
Print At(2,7);"Einwohner: 2 200 000"
Print At(2,8);"W�hrung: Yemen Dinar"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 128,180
End Proc
Procedure OMAN
Ink 2 : Paper 0 : Pen 2 : Paint 176,160
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Oman Maskat"
Print At(2,11);"Gesamtfl�che 212 500 km";Chr$(178)
Print At(2,7);"Einwohner: 1 200 000"
Print At(2,8);"W�hrung: Rial Omani"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 176,160
End Proc
Procedure EMIRATE
Ink 2 : Paper 0 : Pen 2 : Paint 161,153
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Arab.Emirate Abu Dhabi"
Print At(2,11);"Gesamtfl�che 83 600 km";Chr$(178)
Print At(2,7);"Eimwohner: 1 300 000"
Print At(2,8);"W�hrung: Dirham"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 161,153
End Proc
Procedure IRAN
Ink 2 : Paper 0 : Pen 2 : Paint 140,128
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Iran Teheran"
Print At(2,11);"Gesamtfl�che 1 648 000 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"10.0% Ackerland u. Baumkulturen"
Print At(3,16);"6.8% Wiesen u. Dauerweiden"
Print At(2,17);"10.9% Hoch- u. Buschwald"
Print At(2,18);"72.3% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 44 200 000"
Print At(2,8);"W�hrung: Rial"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 140,128
End Proc
Procedure AFGHANISTAN
Ink 2 : Paper 0 : Pen 2 : Paint 200,125
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Afghanistan Kabul"
Print At(2,11);"Gesamtfl�che 649 969 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"12.3% Ackerland u. Baumkulturen"
Print At(3,16);"9.3% Wiesen u. Dauerweiden"
Print At(3,17);"3.1% Hoch- u. Buschwald"
Print At(2,18);"75.3% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 17 700 000"
Print At(2,8);"W�hrung: Afghani"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 200,125
End Proc
Procedure SOWJETUNION
Ink 2 : Paper 0 : Pen 2 : Paint 100,70
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Sowjetunion Moskau"
Print At(2,11);"Gesamtfl�che 22 274 900 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"10.4% Ackerland u. Baumkulturen"
Print At(2,16);"16.7% Wiesen u. Dauerweiden"
Print At(2,17);"40.6% Hoch- u. Buschwald"
Print At(2,18);"32.3% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 276 300 000"
Print At(2,8);"W�hrung: Rubel"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 100,70
End Proc
Procedure PAKISTAN
Ink 2 : Paper 0 : Pen 2 : Paint 225,130
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Pakistan Islamabad"
Print At(2,11);"Gesamtfl�che 803 940 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"29.9% Ackerland u. Baumkulturen"
Print At(3,16);"4.4% Wiesen u. Dauerweiden"
Print At(2,17);"0.0% Hoch- u. Buschwald"
Print At(3,18);"65.7% �dland, Binnengew. etc."
Print At(2,7);"Enwohner: 96 200 000"
Print At(2,8);"W�hrung: Pakistanische Rupie"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 225,130
End Proc
Procedure INDIEN
Ink 2 : Paper 0 : Pen 2 : Paint 240,145
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Indien Neu-Dehli"
Print At(2,11);"Gesamtfl�che 3 268 090 km";Chr$(178)
Print At(6,13);"davon sind"
Print At(2,15);"50.3% Ackerland u. Baumkulturen"
Print At(3,16);"4.3% Wiesen u. Dauerweiden"
Print At(2,17);"19.1% Hoch- u. Buschwald"
Print At(2,18);"26.3% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 746 700 000"
Print At(2,8);"W�hrung: Indische Rupie"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 240,145
End Proc
Procedure NEPAL
Ink 2 : Paper 0 : Pen 2 : Paint 274,140
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Nepal Katmandu"
Print At(2,11);"Gesamtfl�che 140,800 km";Chr$(178)
Print At(2,7);"Einwohner: 16 700 000"
Print At(2,8);"W�hrung: Nepalesische Rupie"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 274,140
End Proc
Procedure BHUTAN
Ink 2 : Paper 0 : Pen 2 : Paint 298,139
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);"Land Hauptstadt"
Print At(2,5);"Bhutan Thimbu"
Print At(2,11);"Gesamtfl�che 47 000 km";Chr$(178)
Print At(2,7);"Einwohner: 1 400 000"
Print At(2,8);"W�hrung: Ngultrum"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 298,139
End Proc
Procedure BANGLA
Ink 2 : Paper 0 : Pen 2 : Paint 305,153
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(2,2);" Land Hauptstadt"
Print At(2,5);"Bangla-Desh Dacca"
Print At(3,11);"Gesamtfl�che 142 776 km";Chr$(178)
Print At(7,13);"davon sind"
Print At(3,15);"66.6% Ackerland u. Baumkulturen"
Print At(3,16);"0.0% Wiesen u. Dauerweiden"
Print At(3,17);"15.0% Hoch- u. Buschwald"
Print At(3,18);"18.4% �dland, Binnengew. etc."
Print At(2,7);"Einwohner: 98 700 000"
Print At(2,8);"W�hrung: Taka"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 305,153
End Proc
Procedure LANKA
Ink 2 : Paper 0 : Pen 2 : Paint 273,192 : Paint 275,197
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Sri Lanka Colombo"
Print At(4,11);"Gesamtfl�che 65 610 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"30.1% Ackerland u. Baumkulturen"
Print At(6,16);"6.7% Wiesen u. Dauerweiden"
Print At(5,17);"44.2% Hoch- u. Buschwald"
Print At(5,18);"19.0% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 15 600 000"
Print At(5,8);"W�hrung: Sri Lanka-Rupie"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 273,192 : Paint 275,197
End Proc
Procedure BIRMA
Ink 2 : Paper 0 : Pen 2 : Paint 332,160
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);"Land Hauptstadt"
Print At(6,5);"Birma Rangun"
Print At(4,11);"Gesamtfl�che 678 033 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"28.0% Ackerland u. Baumkulturen"
Print At(6,16);"0.5% Wiesen u. Dauerweiden"
Print At(5,17);"66.8% Hoch- u. Buschwald"
Print At(6,18);"4.7% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 37 600 000"
Print At(5,8);"W�hrung: Kyat"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 332,160
End Proc
Procedure KAMBODSCHA
Ink 2 : Paper 0 : Pen 2 : Paint 370,176 : Paint 371,183
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Kambodscha Phnom Penh"
Print At(4,11);"Gesamtfl�che 181 035 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"16.5% Ackerland u. Baumkulturen"
Print At(6,16);"3.2% Wiesen u. Dauerweiden"
Print At(5,17);"73.9% Hoch- u. Buschwald"
Print At(6,18);"6.4% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 7 100 000"
Print At(5,8);"W�hrung: Riel"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 370,176 : Paint 371,183
End Proc
Procedure THAILAND
Ink 2 : Paper 0 : Pen 2 : Paint 356,170
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Thailand Bankok"
Print At(4,11);"Gesamtfl�che 514 000 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"22.1% Ackerland u. Baumkulturen"
Print At(6,16);"0.0% Wiesen u. Dauerweiden"
Print At(5,17);"53.2% Hoch- u. Buschwald"
Print At(5,18);"24.7% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 50 400 000"
Print At(5,8);"W�hrung: Bath"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 356,170
End Proc
Procedure LAOS
Ink 2 : Paper 0 : Pen 2 : Paint 360,160
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);"Land Hauptstadt"
Print At(6,5);"Laos Vientiane"
Print At(4,11);"Gesamtfl�che 236 800 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(6,15);"4.0% Ackerland u. Baumkulturen"
Print At(6,16);"3.4% Wiesen u. Dauerweiden"
Print At(5,17);"63.3% Hoch- u. Buschwald"
Print At(5,18);"29.3% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 3 600 000"
Print At(5,8);"W�hrung: Kip de Lib�ration"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 360,160
End Proc
Procedure VIETNAM
Ink 2 : Paper 0 : Pen 2 : Paint 367,156
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Vietnam Hanoi"
Print At(4,11);"Gesamtfl�che 332 559 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"15.9% Ackerland u. Baumkulturen"
Print At(5,16);"14.7% Wiesen u. Dauerweiden"
Print At(5,17);"40.6% Hoch- u. Buschwald"
Print At(5,18);"28.8% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 58 300 000"
Print At(5,8);"W�hrung: Dong"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 367,156
End Proc
Procedure MALAYSI
Ink 2 : Paper 0 : Pen 2 : Paint 367,200 : Paint 420,200
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);"Land Hauptstadt"
Print At(6,5);"Malaysia Kuala Lumpur"
Print At(4,7);"Gesamtfl�che 332 632 km";Chr$(178)
Print At(4,9);"davon sind"
Print At(3,11);"10.6% Ackerland u. Baumkulturen"
Print At(3,12);"15.0% Wiesen u. Dauerweiden"
Print At(3,13);"74.4% Hoch- u. Buschwald"
Print At(3,14);"0 % �dland,Binnengew. etc."
Print At(5,16);"Einwohner: 15 200 000"
Print At(5,18);"W�hrung: Malayischer Ringgit"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 367,200 : Paint 420,200
End Proc
Procedure PHILLIPPINEN
Ink 2 : Paper 0 : Pen 2 : Paint 436,169 : Paint 450,190
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Philippinen Manila"
Print At(4,11);"Gesamtfl�che 300 000 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"29.9% Ackerland u. Baumkulturen"
Print At(6,16);"4.8% Wiesen u. Dauerweiden"
Print At(5,17);"53.0% Hoch- u. Buschwald"
Print At(5,18);"12.3% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 53 400 000"
Print At(5,8);"W�hrung: Philippinischer Peso"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 436,169 : Paint 450,190
End Proc
Procedure TAIWAN
Ink 2 : Paper 0 : Pen 2 : Paint 428,146
SCHLAF
Screen To Back 1 : Screen To Front 2 : Screen 2
Print At(6,2);" Land Hauptstadt"
Print At(6,5);"Taiwan Taipeh"
Print At(4,11);"Gesamtfl�che 35 966 km";Chr$(178)
Print At(8,13);"davon sind"
Print At(5,15);"24.0% Ackerland u. Baumkulturen"
Print At(6,16);"0.0% Wiesen u. Dauerweiden"
Print At(5,17);"64.5% Hoch- u. Buschwald"
Print At(5,18);"11.5% �dland, Binnengew. etc."
Print At(5,7);"Einwohner: 19 100 000"
Print At(5,8);"W�hrung:"
SCHLAF
Cls : Screen To Back 2 : Screen To Front 1 : Screen 1
Ink 5 : Paint 428,146
End Proc
SUEDAMERIKA:
Data "Lima","Peru","Quito","Ecuador","La Paz","Bolivien"
Data "Asuncion","Paraguay","Montevideo","Uruguay","Buenos Aires","Argentinien"
Data "Santiago de Chile","Chile","Brasilia","Brasilien","Bogota","Kolumbien"
Data "Caracas","Venezuela","Georgetown","Guyana","Paramaribo","Surinam"
Data "Cayenne","Franz.- Guyana"
Return
AFRIKA:
Data "Rabat","Marokko","Algier","Algerien","Tunis","Tunesien"
Data "Tripolis","Libyen","Kairo","�gypten","Dakar","Senegal"
Data "Bamako","Mali","Freetown","Siera Leone","Monrovia","Liberia"
Data "Abidjan","Elfenbeink�ste","Accra","Ghana","Wagadugu","Obervolta"
Data "Lome","Togo","Lagos","Nigeria","Niamey","Niger"
Data "N`Djamena","Tschad","Addis-Abeba","�thiopien","Mogadischu","Somalia"
Data "Nairobi","Kenia","Kampala","Uganda","Kinshasa","Zaire"
Data "Luanda","Angola","Lusaka","Sambia","Daressalaam","Tansania"
Data "Salisbury","Simbabwe","Maputo","Mocambique","Windhuk","Namibia"
Data "Kapstadt","S�dafrika","Victoria","Seychellen","P.Louis","Mauritius"
Data "Libreville","Gabun","Conakry","Guinea","Jaunde","Kamerun"
Data "Brazzaville","Kongo","Nuakschott","Mauretanien","Kigali","Rwanda"
Data "Khartoum","Sudan","Porto Novo","Benin","Bangi","Zentralafrika"
Data "Bujumbura","Burundi","Gaborone","Botswana"
Return
NORDAMERIKA:
Data "Panama","Panama","Managua","Nicaragua","Tegucigalpa","Honduras"
Data "San Salvador","El Salvador","Guatemala","Guatemala","Belmopan","Belize"
Data "Mexico","Mexico","Havanna","Kuba","Kingston","Jamaika"
Data "Port au-Prince","Haiti","Santo Domingo","Domenikanische Rep.","Nassau","Bahamas"
Data "Washington","Vereinigte Staaten","Ottawa","Kanada"
Return
SIENA:
Data "Moskau","Sowjetunion","Islamabad","Pakistan","Neu-Delhi","Indien"
Data "Kathmandu","Nepal","Thimbu","Bhutan","Dacca","Bangladesh"
Data "Bagdad","Irak","Rangun","Birma","Peking","China"
Data "Ulan-Bator","Mongolei","Teheran","Iran","Kabul","Afghanistan"
Data "Bangkok","Thailand","Phnom-Penh","Kambodscha","Kuala-Lumpur","Malaysia"
Data "Hanoi","Vietnam","Taipeh","Taiwan","Hongkong","Hongkong"
Data "Pj�ngjang","Nordkorea","Seoul","S�dkorea","Manila","Philippinen"
Data "Colombo","Sri-Lanka","Tokio","Japan","Damaskus","Syrien"
Data "Beirut","Libanon","Vientiane","Laos","Jerusalem","Israel"
Data "Riad","Saudi-Arabien","Amman","Jordanien","Sana","Jemen"
Data "Aden","Volksrep.-Jemen","Maskat","Oman","Abu-Dhabi","Arabische Emirate"
Data "Kuwait","Kuwait","Menama","Bahrain"
Return
EUROPA:
Data "Oslo","Norwegen","Stockholm","Schweden","Helsinki","Finnland"
Data "Reykjavik","Island","London","Gro�britannien","Dublin","Irland"
Data "Kopenhagen","D�nemark","Amsterdam","Niederlande","Br�ssel","Belgien"
Data "Luxemburg","Luxemburg","Paris","Frankreich","Madrid","Spanien"
Data "Bonn","Bundesrepublik","Warschau","Polen","Sofia","Bulgarien"
Data "Bern","Schweiz","Valletta","Malta","Lissabon","Portugal"
Data "Budapest","Ungarn","Rom","Italien","Ankara","T�rkei"
Data "Belgrad","Jugoslawien","Bukarest","Rum�nien","Nikosia","Zypern"
Data "Wien","�sterreich","Prag","Tschechoslowakei","Athen","Griechenland"
Data "Andorra","Andorra","Tirana","Albanien","Ost-Berlin","DDR"
Return
AUSTRALIEN:
Data "Canberra","Australien","Wellington","Neuseeland","Konedugu","Papua-Neuguinea"
Data "Jakarta","Indonesien","Kuala-Lumpur","Malaysia","Manila","Philippinen"
Data "Ponape","Mikronesien","Suva","Fidschi Inseln"
Return